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ABSTRACT 


A general purpose computer program was developed for the prediction of 
vehicle interior noise. This program, named VIN, has both modal and 
statistical energy analysis capabilities for structural/acoustic interaction 
analysis. The analytical models and their computer implementation were 
verified through simple test cases with well-defined experimental results. 
The model was also applied in a Space Shuttle payload bay launch acoustics 
prediction study. The computer program will process large and small 
problems with equal efficiency because all arrays are dynamically sized by 
program input variables at run time. A data base can be built and easily 
accessed for design studies. The data base significantly reduces the 
computational costs of such studies by allowing the reuse of the still-valid 
calculated parameters of previous iterations. Given accurate structural and 
acoustic response and exterior acoustic field data, the program will yield 
reliable results. The problem facing the program user will be the 
determination of the input data. Except for the most simple cases, finite 
element or experimental structural data will probably be needed for the 
modal analysis portion of the program. The acoustic component mode 
synthesis capability of the program makes the determination of the modal 
analysis range acoustic response less of a problem. For the SEA model, the 
estimation of the statistical energy analysis parameters, such as the joint 
acceptance, is required. The joint acceptance includes or is implicitly 
coupled with structural mode shape information, structural modal density, 
and external (and internal) pressure distribution estimation. The combined 
complexity of these factors usually limit the SEA method to rough design 
trend studies or a post-test semiempirical modeling role. In any case, the 
general purpose program VIN provides the framework needed to make use of 
the full capabilities of both the modal analysis and SEA methods for vehicle 
interior noise predictions. 
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Section 1 


INTRODUCTION 

Throughout their operational life, space vehicle structures and payloads are subject to 
severe dynamic excitation. This excitation stems primarily from two sources: acoustic 
noise or fluctuating pressures associated with rocket engine exhaust flow or turbulent 
boundary layer flow in flight and direct mechanical excitation caused by thrust 
oscillations, turbomachinery, control thrusters, and so forth. The operational Space 
Shuttle program brings with it a high launch rate and stringent reliability requirements 
associated with equipment reusability along with an increase in the sophistication and 
complexity of the payloads. To ensure the operational integrity of the structure and 
payloads (as well as crew safety), it is mandatory that the dynamic environments be 
accurately estimated for use as design criteria and in the establishment of test 
requirements. 

The overall objective of this study was to extend and implement the technology base in 
the definition of the response environment for aerospace structures, the internal 
acoustic fields, and the resultant effect on payloads, directed toward the establishment 
of system reliability. Considerations include the material and geometric characteris- 
tics of the internal volume and the influence of other payloads within the volume, the 
effect of subvolumes and the structural influence of noise feedback. The prediction 
techniques developed were implemented on a digital computer and optimized to handle 
geometry changes, source variations, and other pertinent parameters. Both modal 
analysis and statistical energy analysis techniques are available in the general-purpose, 
user-oriented computer program for vehicle ulterior noise (VIN) prediction. 

The contents of this report are as follows: 

Section 2, Modal Analysis. The discrete modal analytical models and special 
mathematical techniques used in VIN are presented. 

Section 3, Statistical Energy Analysis. The statistical energy analysis model used 
in VIN is presented. 


Section 4, Computer Program. The computer program’s organization, structure, 
capabilities, and limitations are described in detail. 

Section 5, Computer Program Verification. The accuracies of the analytical 
models and computer implementation of the models is established for certain 
classes of vehicle interior noise problems. 

Section 6, Computer Program User’s Manual. A section of stand-alone capability. 
It provides the VIN user with all the information needed to exercise the program. 

Section 7, Environmental Prediction. Comparisons of VIN predictions of Space 
Shuttle internal payload bay acoustic levels to OV101 acoustic test data and 
actual STS-2 flight data are presented. 

Section 8, Summary. 


Section 2 


MODAL ANALYSIS 

A relatively recent state-of-the-art review, entitled "Master Plan for Prediction of 
Vehicle Interior Noise, listed over 160 references in its annotated bibliography. 
Most of the references presented a procedure for noise prediction and/or reported the 
results of experiment. These noise prediction procedures range from simplistic to 
unworkable in terms of degree of sophistication and information required for implemen- 
tation. A thorough study of methodologies indicated that the basic analytical 

( 2 ) 

development by E. H. Dowell provides the simplest and most versatile modal analysis 
formulation available for low-to medium-frequency structural/acoustic interaction 
problems of the enclosed cavity type. The acoustic portion of the model is based on 
Green's theorem in conjunction with small perturbation acoustical relationships. The 
structure is represented by standard linear relationships with differential pressure 
across the structural wall as the driving force. Further derivation of the model, which 
includes normal mode mathematical techniques, results in a set of two coupled 
differential equations. This coupling occurs because the internal cavity pressure 
modifies the driving force on the structure. The technique also includes the effects of 
mass and damping for both the structure and the sound field. An attractive aspect of 
the formulation is that the differential equations require only "hardwall" acoustic 
modes and "in vacuo" structural modes. The following is a complete derivation of the 
modal analytical model used in VIN beginning with a glossary of terms. 

Model Derivation 

Glossary of Terms 

= area of the absorbing surface 
A^. = area of flexible boundary 

A r = area of rigid boundary 
c = speed of sound in fluid medium 
C nr = absorption coupling coefficient 
F n = N-th "hardwall" acoustic mode shape for cavity 
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L .= structural-acoustic coupling term 
mn 

M = structural mass per unit area 
M m = structural generalized mass 
M* = acoustic generalized mass 
N = normal to surface 

p = perturbation pressure 

p e = external perturbation pressure on cavity wall 

P n = coefficient to acoustic normal mode expansion 
q m = generalized displacement 

= generalized external blocked pressure 
= generalized internal cavity pressure 
^m = S eneralized external pressure 
t = time 

V = volume of cavity 

w = displacement of cavity wall normal to surface 

co = frequency 

x q = position in space (x, y, z) 

Z fl = acoustic impedance of cavity walls 
= structural normal mode shape 
P = density of fluid medium 

Summary of Basic Relations Used in Model Derivation 

P(x 0 , t) = PC 2 £ P„(t) F„<x 0 )/M» 

N 

W( V l> = ^ 
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2.1 Basic Model Derivation 
2.1.1 Time Domain Equations 

Representation of the vehicle acoustics begins with the wave equation for small 
pressure perturbations: 

2 1 l) 

^•>■1 — f - =° < l > 

c ot 

Momentum equation on the flexible boundary: 
ap(x , t) a 2 w(x , t) 

gjj - - P • on A f ^ 2 ) 

dt 


Momentum equation on the rigid boundary: 


dp(x Q , t) 


= 0 on A 


w(x , t) is considered positive outward from the cavity. 


The rigid wall normal mode solutions of equation 1: 
p(x Q , t) = f } n = 0, 1, 2, 3 t >») 

where F n has the properties: 


* 2 W ■ -K /e) W 

(5) 

5F n (x o ) 

Sn =° onA = V A r 

(6) 

1/V f F r (x o )F n (x o )dV = 0; 

(7) 

V = M a ; r=n 
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Using Green's identity, which relates the surface integral to the volume integral of a 
bounded volume, the motion of the boundary can be related to the response of the 
volume. 


_/(p(x 0 , t)v 2 F n (x 0 ) - F n (x 0 )vVx 0 , t))<JV = /(p, V t) — 


dF Jx Q ) 


- Fjx J 


ap(x rt , t) 


no dN 


) 


dA 


( 8 ) 


Define 


P n (t) * ~T 

n pc^V 


/p<V t) F„ 


(x Q )dV 


(9) 


W n (t) = 1/A 


/ w(x o' l) F n 


(x Q )dA 


( 10 ) 
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Break equation 8 into parts: 
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-A 


ap(x Q , t) 

(x 0 > ' aN dA 
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Using equations 1, 2, 5, and 6 in equation 11, one obtains 


/ F n 


1 5 p(x , t) 

<V 3 • — J dV 

pc at 


/A ’ 0 J w) 

= / F n 


dV 


a^w(x , t) 




(12) 


Taking constants out of the integrals: 


-i* A 

po 2 7 n 


a P<*„, t) 

fe 0 ) f dV - 

0 at 2 ao 


$ f W P (x o’ » dV 


•/ 


a J w(x A , t) 


at 


2 F n (x o> dA 


(13) 


Substitute definitions 9 and 10 into 13: 


<5 2 P (t) 


at 


¥~ + -n P n (t) =- 


a z w (t) a, 


at 


n ^ ~'f 

2 V 


(14) 


An absorbent wall can be accounted for using the point impedance concept: 


aw(x , t) 

p(x 0 , t) = Z a (x o ) - on A £ 


( 15 ) 






Apply the momentum equation: 
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ap(x 0 , t) 


a <4 w(x o , t) 


From equation 15, 


d w(x 0 > i ap(x 0 , t) 


Substitute equation 17 into 16: 


ap(x Q , t) x ap(x Q , t) 

aN P T at 

a 


Substitute equation 18 into equation 8, and solve equation 8 as before to obtain 


HE + la pc + a^p (t) . - A f 

St 2 v PC f Im* « / nP n (t> - V at 2 


where 


■fji 

n 


VW 

W 


Finally, from equation 9, 


p(x 0 ,t) = pc 2 ^ 


F n (x o> 


n 

n n 


f- * P n«> 
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The right-hand side of equation 19 can be expressed in normal mode form; let the wall 
deflection be expressed in series form; 

w(x 0 , t) = £ q m (t) ^ m (x 0 ) (22) 

m 


The modal functions *A m (x 0 ) are defined over the region with properties 
determined by the structure. 

Recall equation 10: 


,/ 


W n (t) = 1/A f J w(x 0 , t) F n (x o ) dA f 


Substitute equation 22 into equation 10 to obtain 


W n (t) = 1/A f 


/s 

A^ m 


q_(t) 0 (x ) F (x ) dA, 
m mo no 1 


Extract the time term from the integrals: 


W n (t) = 1/A f 




W W dA f 


m 


Define 

L nm = 1/A f / W F n< x o> dA f 

Then 


(23) 


(24) 


(25) 


W „ (t) = 52 L nm V‘> 


(26) 
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Substitute equation 27 into 19: 


0 P n (t) , A a 2 Y' 
TPC ^ 


c ap (t) 2 

-a -3&! + o» a P (t) 
M a at n n w 

r r 


-A, 


m 


*V> 

nm at 2 


(28) 


Equation 28 is a differential equation in time only and represents the acoustics of a 
volume bounded by a structure. The structure can be represented by a linear partial 
differential equation of the form 


Vv + F d + M 


d w(x . t) 


ar 


= p(x 0 , t) - p (x Q , t) 


(29) 


S 

F 


linear differential operator representing structural stiffness, 
damping force; a common model is the viscous damper. 


= C 


aw(x Q , t) 
at 


M 


a w(x Q , t) 
at 2 


= structural inertial force per unit area. 


p(x G , t) 
p e (x Q) t) 


internal cavity pressure, 
external cavity pressure. 


For simplicity, one can assume the structural modes, &> m , are normal in vacuo modes 
satisfying the eigenvalue problem: 


S'^ (x ) - M*/* (x ) = 0, 

m o m o m 


with 


./ 


M«A m (x o ) <A r (x 0 )dA =0 ; m £ r 

= M m ; m = r. 


(30) 


( 31 ) 


oj is the m-th structural natural frequency and <£ its associated normal mode, 
m m 
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Substitute equation 22 into 29: 
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9 V (t) 


o' at 


m 


a\jt) 


E W Myv% "■/ 

V x o> r * *V 0 - P <v 0 


m 


Rearrange 


V + c 


aq m (t) a2q m (t) 
m + M ~— 


at 


m 


dV 


) 


W 


p(x Q , t) - P e (x Q , t) 


Recall from equation 30 that 


S = Mg/ . 
m 


Substitute into equation 33: 


I>KV t) + § 


C a %i (t) . a 


at 


m 


at' 


( 32 ) 


(33) 


(34) 


l ^m (x o ) = p(x «’ t} “ P 6(x «’ (35) 


Multiply through by <A m (x o ) and integrate over the area A f . Apply orthogonality 
relations; obtain: 


+ XT + — T- ) M„ = Q„(t) + Q® (t) 


C 8<5 m (t) , 6 q m (t> 


m at 


at 


m 


‘m 


(36) 


where 


V« 


= / P (x o’ 


t) V x o )dA ( 


<*>> 


* * I pX- 


D ^(K^dA, 


(37) 
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Substitute equation 21 into equation 37 for Q (t): 


Q m <« = / po 2 E 

m J n M a 


a P n (t) ' f 'm (x o )dA f 
'n 


( 38 ) 


V« - E ®j[ p „<‘> / W ' 4 m <x o )dA f 


n 


(39) 


Substituting equation 25 into equation 39: 


2 ^ 

Q m (t> = e° a jE-^- t nm 

n 


(40) 


Substitute equation 40 into equation 36 to obtain the desired form for the structural 
equation: 


2„ ^ C 5q m (t) , 5 q m (t) 


“m q m (t) + M at 


at 


2 / M m 


2 V' 

pc A f E ”.,a 


n M 


nm + Q® (t) 

m 


(41) 


n 


In summary, the vehicle interior noise problem can be modeled by a set of coupled 
differential equations, one describing the acoustic response (equation 28) and one 
representing the structural response (equation 41). 

Acoustic Equation: 


a V> . v ci 

6t 2 V 


V C »r dP r (t) 


M 


a 


at 


+ < P n (t) 


9 M 


m 


mn 


ar 
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Structural Equation: 
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M 


m 


a Sn (t) , C ^m (t) 

at 2 88 at 


+ «„q m (t) 

mm 1 


■ Pe 2 A d 2 ♦ Q* <« 


n 


M 


‘m 


Given some external pressure field or point force on the structure Q^(t), the equations 
can be solved by any standard method to obtain P n (t). With P n (t), the internal pressure 
at a point or the average internal pressure can be calculated. Recall equation 21: 


2 V' P n (t) P n ^ X 0^ 
P<V t) = pe 2 2J " " ° 


n 


m: 


a 

'n 


The space-averaged pressure squared over the vehicle structure at time, t, is calculated 

by 


<p 2 (x 0 ,t ) > = i f 


p (x 0 , t) dV 


1 f, 2 V P " <t>F " 

V J P c 2 j a 

v fr n M_ 


<x 0 ) 


, „ p;,(t) f (x ) 

pc dV 


ir 


M 


n 


P 2 c 4 


^ P n (t)P n' (t) 1 f 

£ S-S5T- V M»v 


n "FT M“M® 
n n' 


,(x 0 )dV 


Due to orthogonality, 


l.¥"WZ 


ft 


l WTW r ~ m ~"' 


• . 0 
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Hence, the space-averaged pressure squared over the volume can be calculated by 


<P 2 (X„, t)> 


_ P 2 C 4 


volume 


Tt X 


P5(t) 


n M 


2.1.2 Frequency Domain Equations 

Equations in the frequency domain can also be obtained. Let 


/ W 

P n Me" lojt d<jj 


ap(t) r 00 . . 

= / - ^ )e 


d<i> 


a 2 p„(t) 


at 
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- 00 
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m 
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at 
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-00 


Substitute these relations into the time domain differential equations: 
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If equations 45 and 46 are to hold, the integrands must be equal to zero. Hence, 
Acoustic frequency domain equation: 


- 0) - 


2 V c v~° 


nr 
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col + a) 


n ) P n (6>) = E -4 L ^ 2 q M 
n / n ~ V nm M m 
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Structural frequency domain equation: 
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If one is interested in the acoustic pressure inside the structure, equations 48 and 49 


can be combined to eliminate From equation 48: 


= (? 


^ L cu 2 q (tj) 

n m ^m' ' 


V nm M m' 
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v M a 

n 


From equation 49: 


q (o>) = 
M m 


( 




n M 
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oy - oj o»i + cj 
’mm 
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where 


2 £ o> 
m m 


Q bi 

^m 


= rr Viscous damping model 
= Generalized force (understood function of o> ) 


(50) 


(51) 


(52) 


Substitute equation 51 into 50 and changing the summation index n in equation 51 to s 
to avoid confusion with the index in equation 50. 


P n«"> * E (t L nm “ 2 («“ + A fZ^« 5 S (“) 
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To shorten the equation, define: 
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Equation 53 becomes 
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M = V L - 2 ((q“ 

n v ' Z-rf \ V nra \\^m 
m \ 


+ pc 2 A 




(55) 


Solution of this equation involves a set of "n" equations and "n" unknowns. The coupled 
nature of the solution is, as previously discussed, caused by the effect of the internal 
cavity pressure on the structural response of the cavity wall. Equation 55 can be made 
more clear by the following expansion: 
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Solve for P n (°>): 
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And finally, 
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k = pc 2 A f -aa a>i 
sm f m* 


K nm = Pq2 A f “TT 

nm f M a 

n 


Hence, 




Vi (q b 
m \ 

ps 


Q" + V K P M 
m sm s ■ 


I nm K 
nm nm 


Equation 61 can be used to generate the set of simultaneous frequency domain 
equations required to solve closed cavity problems in which the effect of the internal 
sound field on the motion of the structure is significant. 

When the acoustoelastic coupling is negligible, the problem solution becomes much 
simpler. The acoustic equation and the structural equation are independent. Equation 
51 becomes 


(s bl ) 


Substitute equation 62 into equation 51: 


A- L (o 2 Q bl 

T n m ^ m 
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Using the definition of I (equation 60), 
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P (£J) = V' I Q 

n v ' La nm 


m 


- bl 
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( 64 ) 


Hence, the solution for each mode "n v ' consists of a single equation when the effect of 
the cavity pressure on the wall motion can 
been found, the pressure can be calculated. 


the cavity pressure on the wall motion can be neglected. In either case, once P n M has 


P<x 0 , <o) 


= pc 


2 £ W 


n 


M 


a 


(65) 
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Equation 65 yields the pressure at a point and at a single frequency. Other quantities of 
interest are the space-averaged pressure squared at a frequency and the space- 
averaged, band-limited pressure squared. The mean square pressure is 


P (x Q , o>) = p(x Q , co) p*(x Q , cj) / 2 


( 66 ) 


Recall equation 65: 
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Then 


p*(x Q , co) 
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Hence, 


P (x Q , u) 
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(67) 


<p 2 (x 0 ,^)> = 1/V /p 2 (x 0 ,o)dV 
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Space average 


( 68 ) 
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n n M n M n- V v / 


Because of the orthogonality of the normal modes F n (x Q ), equation 69 reduces to 


/ 9 \ P 2 o 4 P >> P n (W > 

<P (!t o’ a,) > * E ■ " a 

0 n 2 M* 


(70) 


To obtain space-averaged, band-limited pressure squared, simply apply integration 
techniques over the band of interest. 


<p 2 <v“>> * f (e 1/2 

band J \ n 
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p 2 c 4 P n MP n M 

M a 
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do> 


(71) 


In the case of a deterministic external pressure field, equations 65, 70, and 71 can be 
solved. However, if the external pressure field must be considered random, further 
derivation is required to adapt the equations to accept external pressure field 
information in that form. One method of developing probability descriptions of random 
variables is through the use of the expected value: 


E[x] = 

f x f x (x)dx 


-oo ~ 

where x 

- denotes a random variable 


- density of the random variable x 


In the case of Fourier transformed data, the random variables are functions of <o based 
on a sample length T. Recall equation 70 (the space-averaged pressure squared). 


/ 2 \ V' 2 4 P £ < " ) P n < " ) 
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Take the expected value of both sides: 


Let 


E [<p 

2 <V"> 

>]■¥»’ 

S p H 

= E 

[<p 2 ( V" ) >] 

Sp («>) 
n 

= E ' 

[p.( U )P n (4,)] 
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a 
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[p S MP n w] 


( 72 ) 


(73) 


When the effect of the internal pressure on the cavity structure is negligible, Sp (oj) 


can be calculated. 


n 


P n ( " ) = 2 ‘nm f - P 6< V “> ^m ( V dA 
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(74) 


/* * 

PJH =Ep / - pV c , «> '* s (x' 0 )dA' 


(75) 


A' 


Then 


p ; Mf n W = 2 ’ns'nm f <76) 

s m 


A' A 


Take the expected value of equation 76 

E [p*MP n M] = EE'X / / E [ P e *< x, 0 ")p e (*o' <,J, ]' i, s <lt 'o ) ^m (x o )dAdA ' <77) 


s m 

Define the joint acceptance 
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A At 


i I , 


I i$ 


,1 


a 1 

HI 


r 1 




OS 4 Vj - , - > ^ ^ 


Sp^^cti) - Blocked pressure power spectral density at reference point or 

averaged over the surface. 

C 

pbl(x Q | x Q , oj ) - Blocked pressure cross-power spectral density. 

Substitute into equation 77 

E h<“) P rH * EE ■S s ‘„ ra A2 V“ )J ms M *2 

- 2 a2 V ( “ ) ( £ E‘*ns ‘nm J L<“>) < 79 > 

' s m / 

Substitute equation 79 into equation 72 


E [<p 2 (x o , ^)>] = £ 

n 



i* i j 2 
ns nm ms 



(80) 


In many cases, J mg a 0 when m £s. This approximation is valid if the structural 
damping is light and the correlation length of the external pressure field is small. The 
approximation simply asserts that the cross coupling between modes of the structure is 
negligible. With this generally valid assumption, the space-averaged, band-averaged 
pressure becomes 



Equation 81 is used to calculate the expected value of the space-averaged pressure 
squared at a given frequency when the effect of internal cavity pressure on the motion 
of the cavity wall is negligible. If the coupling is important, a solvable random 
formulation has not been obtained. In such cases, a representative time history of the 
external excitation can be synthesized and the deterministic solution found. 
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The band-limited, space-averaged pressure squared can be analytically calculated. 
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Assuming and J ^ im ( £u ) are constant over the band, 
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(82) 


where a) Q = center frequency of the band. 

The integral over frequency in equation 82 can be analytically evaluated through 
integration by parts. For the sake of brevity, the long and tedious integration is not 
given here. If the exterior pressure is expressed in terms of band-limited mean square 
pressure, replace with the band level, BSp^, divided by the bandwidth. 

2.2 Peripheral Developments to the Modal Analysis Model 

Various extensions to the basic model can be made to increase the versatility of a 
computer program implementing the model. In this section, these developments are 
presented and discussed. 


2.2.1 Acoustic Component Mode Synthesis 

If the acoustic normal modes of a cavity shape are not known, they can be found 
through a process called "component mode synthesis." In this process, the complex 
cavity is approximated by several smaller cavities of known modal characteristics. By 
forcing the pressures to be equal at the openings between the subcavities, a solution for 
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the normal modes of the complex cavity can be obtained. The following is a sample 
derivation for the simple case of two cavities connected by one opening. It should be 
noted that the "opening" could be a structural panel. 



The structural equation for the opening between the cavities can be written: 


Sw(x Q , t) + C 


aw(x 0 , t) a w(x 0 , t) 

+ m s “ ” 1 


at 


ar 


= p (x Q , t) - p (x Q , t) 


Define the normal modes as before. 
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Substitute equations of 84 into 83: 
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P (x Q , t) - p (x Q , t) 


(83) 
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(85) 


Recall that 
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Hence, 
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Multiply through by •/'.(x^ and integrate over A^: 
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Using the definition of equation 25 in equation 87, 
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( 86 ) 


(87) 


( 88 ) 


In a multiple cavity problem with more than one opening, an equation like 88 is written 
for each opening. 
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The hard wall acoustic equations for each cavity are 
-2 A 

. ( t ) = .3v: 

n n 


a 2 p°(t) 


at‘ 


a„ „ A f — a q m (t) L* 
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(89) 


a 2 pf(t) 
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n vw , _ A f ^ d q m (t) T e 

1 + W n P n (t) = V" Ij — T~ Km 


(90) 


e m at 


In a system of more than two cavities, one equation must be written for each cavity in 
the system. The right-hand side is the forcing function of the cavity and represents the 
motion of the opening to the cavity. 


Shifting to the frequency domain and making the standard substitutions, 

(- J * 2{ m o, m 0,1 + “4) q m M = pc 2 A, £ — 
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(91) 


M 
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(-0?+ co C ) p c (cu) = - r~ y; (- 6J 2 q (<pj) L c ) 

\ n / n v V c m m nm 


(92) 


l-co 2 + (o e ) P e (<u) = + -J y (-0J 2 q (o>) L e ) 

\ n / n ' V„ 4-rf v M m v nm' 

\ 1 e m 


(93) 


In principle, any number of cavities and openings could be accommodated. The set of 
equations includes one equation for each opening and one equation for each cavity. The 
number of terms on the RHS of equations 92 and 93 depend on the number of openings 
into the cavity. 
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In the case of a pure opening (i.e., no wall), the result can be simplified because M 
goes to zero: 
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( 94 ) 
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o 

Divide out (- oj ) and let 



Then 

V Q q =0 r = 1, 2, 3, . . . 

t-u >m M m ’ 

m 

The natural frequencies are determined by the condition that the determinant of the 
coefficients must vanish. 



Equations 95 and 96 can be substituted into equation 94 to obtain a nonstandard 
eigenvalue problem. Once the eigenvalues and eigenvectors of the system of equations 
have been found, equations 95 and 96 can be used to obtain P^(<u) and P®(g>). With these 
values, the mode shape of the multiple cavity system can be calculated. 


Within cavity c: 


f> 0 > - E W 


Pf (o>) Ff(x 0 ) 
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Again, the normal modes and mode shapes for a complex cavity can be obtained by the 
process of component mode synthesis. The required input to the process is the hard 
wall normal modes and mode shapes of the subcavities which approximate the complex 
shape. 
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2,2 .2 Generalized Acoustic Mass of the Multiple Cavity System 


The generalized mass of the multiple cavity system, needed for the calculation of the 
internal pressure, is defined as 


M 


nn 


A • * ^ / W W dV 


(99) 


where F n (x rt ) and F n ,(x o ) are mode shapes of the multiple cavity system. Recall from 


n o 
equation 98: 
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where P^to, ) and ,) are constraint constants from the acoustic component 

m n r n 


synthesis with v denoting the subvolume when used in conjunction with other variables 
and denoting the volume of the sub volume when used alone. Capital V denotes the 
volume of the multiple cavity system as a whole. 
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( 100 ) 
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Break this integral down into the sum of the integrals over the subvolumes of the 
cavity. 

nv 


M 


a _ V* I 
nn’ / - j V 


v=l 


f ^ ^ P^(<u n )PV,) 


) dv 


Lv 


m r 


nv = number of subvolumes in the multiple cavity system 
v = subcavity. 
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P V (<t> ) P v (a> ,) 
m n r v n* 7 
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/ F m< x o> F r< x o )d '’ 


Since (x Q ) and F^f (x Q ) are normal modes of the subcavity v, the integral is zero 
where m t r, and v • where m = r. Hence, 


- - £ ♦ ' • 2 


p !,(w) p V m (fo.) 
m n m n 1 


(101) 


pj^co ) and P^(<^ n ,) are known from multiple cavity component mode synthesis 
calculations. Since the modes of the multiple cavity system are also orthogonal, the 
generalized mass, M a n , = 0 when n # n'. 

2.2.3 Space-Averaged Pressure Over a Subvolume 
of a Multiple Cavity System 

The space-averaged pressure squared over a subvolume of a multiple cavity system can 
be calculated. Recall equation 67: 
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Take the integral over the subvolume Vj, 
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Since F n (x Q ) and P n i(x Q ) are mode shapes of the multiple cavity system and not the 
subvolume, the volume integral is not necessarily zero when n t n’. To calculate the 
integral, recall that the multiple cavity mode shapes can be calculated from the 
constraint constants from the component mode synthesis. 
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Substitute into the integral 
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Since F^(x o ) and F^(x q ) are mode shapes of the subvolume, v, the integral is zero when 


m t r and Mj, when m = r. Hence, 
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Substitute equation 103 into 102 to obtain 
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For random excitation, take the expected value of equation 104: 
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Recall the relationship expressed in equation 79. 
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and substitute into equation 105 to obtain 
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Again, neglecting the cross-coupling terms, J*, as done in equation 81 
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The double summation of n and n' in equation 106 can be a very lengthy process. An 
approximation for the subcavity average internal pressure can be obtained by neglecting 
the cross terms nn'. This assumes 


S P >n> P m«V « £ ( p >„>)' 


which is the same as asserting 


/ 
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Applying this assumption to equation 106, 
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(107) 


2.2.4 Multiple Panels 

When an enclosure is constructed of several walls, each having separate response 
characteristics, the internal pressure can be calculated by the linear superposition of 
the contributions from each panel. For example, the pressure at a point and frequency 
can be calculated by 


1 2 4 


P?(o) PM 
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Since the acoustic constants in equation 108 are independent of the panel structural 
response, the equation can be written 



2.2.5 Modal Summations 


(109) 


The multiple summations required by the modal analysis method can become exces- 
sively time consuming if one sums over all the structural and acoustic modes at each 
band. Recall equation 82, which gives the space-averaged, band-averaged pressure 
squared in the volume 
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The further <a n and ct> m are from the band of interest, the smaller value of the 
integral. This fact forces the series to converge to a solution. Criteria which limit the 
computations to only those modes that significantly contribute to the solution are 
developed in this section. 


The outermost summation is over the acoustic modes of the cavity. Consider a 
frequency band centered at a> Q with and oj^ as the lower and upper frequency 
limits. The acoustic natural frequencies closest to the center frequency, oj q , will 
contribute the most to the solution. The magnitude of the frequency separation 
between cl> and oj_ after which one can consider the acoustic modal contribution 

V It 
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negligible is a function of the accuracy desired, the number of acoustic modes close to 
o) , and the acoustic damping. When examining the acoustic modal summation, one 

V 

must compare the acoustic modal contributions using an arbitrary structural mode as a 
constant. For simplicity, assume a> m = &> c , hence 
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I nm I by — -~ 2 — 2 and integrate over the one-third octave band 
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around a> Q to obtain an acoustic modal proximity weighting factor, W , 
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( 112 ) 


By establishing a base weight, W^, equal to the value of W a at the o> n closest to to,, a 
criterion for modal importance can be defined: 


If 


W 
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a 

< e then the is not important to the solution in that band, 


where € is some fraction of the contribution of the nearest acoustic natural 
frequency, co a . 
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The structural criteria follow the same development to yield 



The weighting factor integral, W, can be analytically evaluated over any band of 
interest to obtain the bandwidth of importance: 

Band = |a> c - <D n (e)| (114) 

o> n (c) is the frequency above which the equation 

W-W b <eW b (115) 

holds. W b in equation 115 is the weighting factor integral for the closest mode to the 
band. W is the weighting factor integral at the frequency <i> n (e ). 

To limit the extent of this task, the program implements this analysis technique with a 
few simplifying assumptions. In calculating the acoustic bandwidth of importance 
around each band of interest, the highest damping for any cavity mode is assumed for 
all the cavity modes. In calculating the structural bandwidth of importance around 
each band of interest, the highest damping for any mode of the structural wall of the 
cavity is also assumed for all the structural modes. The modal summations of each 
structure is considered separately. 

2.2.6 Point Excitation 

With use of the delta function, point excitation of the structural wall can be considered. 
In this section, the generalized driving force for both the deterministic and random 
cases will be defined for a point force. Let 

x = x^ be the location of the point excitation 

and F(Xp t) be the time history of the force at that point. 

p e (x Q , t) = d(x Q - x f ) F(x f , t) (116) 

6(x - X|.) is the delta function 
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Q>) = 

ff pX’ t) ' 4 m (x o )<is 
s 

(eq. 37) 


Q b > = 

JJ( 5<x 0 - X f ) F(x f , t) <A m (x Q )ds 
s 

(117) 

Hence, 

<<‘> ■ 

F(x f , t) <A m (x f ) 

(118) 


This, of course, also translates to the frequency domain, 

Q “(6>) = F(x f , w) «A m (x f ) (119) 


For random vibration, 

P n (6>) = E //*^x 0 -x f )F(x f ,o>) ^ m (x 0 )ds (120) 

m jy 

s 

P*(<^) =53 I ns (^) j7i(x 0 -x.)F*(x- f ,.) W ds (121) 

Since x'^ = x^ for point force excitation, 

1 /2 E [?•*») P«a)l = £ D I* <*> E [|F(x w) | 2 ] 

L J s m 

• *Ag(x f ) ^ m (x f ) (122) 

where E ^|f(x^, <u) 1 2 j is the expected value of the mean squared force at point x^. 

2.2.7 Reverberation Time 

The low frequency formulation lends itself to the calculation of the reverberation time 
of an arbitrarily shaped cavity with walls of unequal absorption characteristics. The 
equations needed for the calculation of the reverberation time are presented below. 
This particular application was first presented by Dowell and is fully developed in 
reference 3. Several important points about reverberation time, absorption, and 
impedance are made in his paper based on equations also used in VIN's modal analytical 
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model. However, only reverberation time will be discussed here. Recall equations 21 
and 28: 


P(x Q , t) 



F n (x ) 

n o 


M 


a 


* P n ( « 


(123) 


and 


d 2 P n (t) 


at 




nr 


M 


,a 


ap r (t) 

at 


+ of 


p n (t> = 


(124) 


where the RHS of equation 124 was set to zero to represent the unforced condition 
considered in reverberation time. All symbols are as previously defined. 


Reverberation time is defined as the time required for the diffuse pressure in a room to 
decay 60 dB after the pressure generating source is turned off. Given initial conditions 
at p(x Q , 0 ), 0 p/at(x , 0 ), the pressure in the room can be calculated with the above 
equations. One has several choices for these initial conditions because of the imprecise 
definition of "diffuse" pressure field. One could simply require the pressure to be 
initially uniform (p(x , t) = p(x , 0 ) = constant), or the potential energy in each mode to 
be equal (P*(t=0)/M = const for all n), or the kinetic energy in each mode to be 
constant. In addition, one must specify where the pressure decay is to be measured or 
define an overall measure of room pressure, such as a volume averaged rms level. 


Pav ( 1/V / P 2( V t)dV ) 


\ 1/2 


as developed in section 2.2.3, this results in 



(125) 


Dowell shows that the damping coupling between the modes is usually small, hence 
C nr — ► 0 and can be neglected. The controlling equation becomes 


a (P n (t) 

dt 2 


A a 2 C nn 

Y pc T 

v M a 

n 


aP n (t) 

dt 


+ OJ t 


n 


P n (t) = 0 


(126) 
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The solution to this equation for n >0 is 

■(»>«o.("^-0 1/2 t)) 


P n (t) = exp 


I- <5 oj & t) (p ( 
\ nn n / \ n 


(ft 


(0) \ /( a 9 I/ 2 ' 

l — + $ cu a p (0)1 / (ct> a (l - 6 “ ) 

at nn n n v / ' 7 1 " v 


n' nn' 


• sin 


in (<u a (l - <5 2 ) 1/2 t) 
\ n v nn / 


(127) 


wher‘e 2d„ m a sA o pc‘ C /(V ML ), as before, if <$„„ « 1, as is usually the case, 
nn n a o o nn n nn ^ 


P n (t) « exp(-i nn ^t) (p n («i-)eos^t) 


Id P (0) / \ 

\-t- (n>0) 


(128) 


For n = 0, the Helmholtz mode, the solution to the governing equation is 


P 0 (t) = 


dP 0 (G) 


at 


|l -exp(-2ig <*> a t)j ) /{: 26 


0^0 ) + P 0 (0) 


(129) 


where 


2 Vo= A n Vo C nn/ VM n»/ 2A a ^ 0 


With appropriate selection of initial conditions, the space averaged reverberation time 
can be calculated. The terms required for the calculations are all also required for the 
modal method of noise transmission analysis. Hence, the reverberation time calcula- 
tions can easily be added to the computer program VIN using equations 127, 128 and 
129. Of course, the band filtered reverberation time can also be calculated. 


2.2.7 Retransmission of Sound 


The fundamental equations implicitly include the effect of the internal pressure on the 
net generalized force on the structural wall. Direct inclusion of this effect, however, 
couples the structural and acoustic equations (see equations 48 and 49). The effect of 
the internal pressure on the motion of the structural wall is often neglected to uncouple 
the equations (as in equation 62) and significantly simplify the calculations. An 
approximate allowance can be made for the retransmission of sound by noting that the 
process is essentially linear. The interior and exterior pressures, p. and p Q respectively, 
are related by 



where () y denotes in vacuo shell response (that is, the effect of interior pressure), is not 
considered. Counting interior pressure, 



The equation assumes the process is reversable. If only a single mode is considered, this 
is true. Since the present approximation has structural modes uncorrelated with each 
other, and acoustic modes are uncorrelated in the spatial average, this is a reasonable 
assumption. At low frequencies, there are few modes present, so .he approximation is 
reasonable from this viewpoint as well. At high frequencies, where there are many 
overlapping modes, the SEA portion of the program is a more appropriate model for 
vehicle interior noise prediction. 


Section 3 


STATISTICAL ENERGY ANALYSIS 


Theoretically, the model presented in section 2 is good for the entire frequency range. 

As a practical matter, the computation time required by the method will become 

prohibitively expensive as the number of structural and acoustical modes in each 

frequency band becomes large. The statistical energy analysis (SEA) method presented 

in this section is used in VIN when the acoustic modal density becomes sufficient t.o 

justify the required SEA assumptions. This particular SEA formulation is a modification 

of the high-frequency model used in PACES^. It allows the calculation of the average 

noise level within predefined subvolumes of a vehicle given a random external pressure 

field on the vehicle structure. In VIN, the SEA subvolumes are defined to match those 

used in the low-frequency analysis portion of the program to facilitate the transition 

between the low- and high-frequency models. A very good summary of the general idea 

(5) 

of SEA was given by Trudell and Yano in the preface to a structurally oriented SEA 
computer program: 


Statistical Energy Analysis (SEA) is a powerful tool for estimating the high 
frequency vibration spectra of complex systems. The analysis method is 
based on the estimation of the power flow between idealized gross elements 
of a vibrating system. The method is statistical in that averaging 
assumptions are made with regard to distribution of energy within an 
element, distribution of resonant modes, and the coupling between elements. 
These assumptions greatly simplify the computational complexity associated 
with normal mode methods. These same assumptions impose the limitation 
and point response predictions cannot be made. 

The assumptions on which the method rests and their implications can be 
quite rigorously stated as follows: 

1. The total vibrating system can be partitioned into SEA elements (with 
suitable boundary conditions) whose modes approximate the modes of 
the original vibrating system. 

2* The modes of the elements of a system contain all of the vibratory 
energy of the system. 

3. The energy in one frequency band of a system element is equally 
distributed among the modes of that element occurring in the fre- 
quency band. 
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4. Only modes occurring within the same frequency band are coupled. 

5. For two coupled elements, all of the modes occurring in one of the 
elements in one frequency band are equally coupled to each mode 
occurring in the same frequency band in the other element. 

Assumption 1 contains the fundamental existence basis for SEA: the 

concept of partitionability. This concept implies that a coupled vibrating 
system with system modes can be approximated by two or more separately 
idealized vibrating elements, each with its own independent mode set. 
These sets are coupled only in the sense of having power flow to and from 
each set across the partition boundary (later referred to as the "joint"). The 
approximation to this model exists in most structures having reflective 
boundaries in the higher frequencies. For example, a skin/stringer structure 
has higher order skin panel modes that are nearly the same frequency and 
shape as an ideally supported panel because the stringer is a comparatively 
massive boundary causing reflection of flexural waves from the skin panel. 
An SEA plate element could logically be equal to the panel area bounded by 
stringers or frames. Such elements will then have to be coupled with joint 
elements in order to develop an SEA model which emulates the vibratory 
power flow of the real structure. 


(Another example is a structural/acoustical problem where the modes of the cavity and 
the modes of the structure can be considered separately.) 


Assumption 3 is the most important simplifying assumption of SEA because 
it eliminates the necessity to calculate generalized modal forces and 
responses. The conditions implicit in this assumption are usually approxi- 
mated by the higher order modes of a structure in a reasonable bandwidth, 
say 1/3 octave. One-third octave bands represent a reasonable compromise 
between the necessity to get a fairly large number of modes (>10) in the 
band for good statistics and the necessity to have some frequency response 
resolution in the vibration prediction. The number of modes in a unit 
bandwidth can be estimated for simple structural forms (such as beams, 
plates, etc.) using algebraic expressions for modal density such as those 
given in Section 4 of this report. Estimation of modal density in this way is 
a considerable simplification over normal mode methods. 

Given SEA elements with the properties described above it is now necessary 
to join them to permit power flow between the modes of one element and 
the modes of another. This is done with a parameter called the coupling loss 
factor rj and leads to assumptions 4 and 5. Assumption 4 is directly linked 
to assumption 2 and the further assumption of a linear process. Assumption 
5 follows directly from assumption 3 as part of the simplification associated 
with a statistical rather than explicit description of modes. 


In this particular application (vehicle acoustics), an energy balance equation is written 
for each cavity of a multiple cavity system and a matrix equation is prepared. 


(130) 






fc -■ 

b “ 

< 


where 


(w| = [C] )p 2 (, 

I 

M is a column vector containing the system external input power to each 
cavity of the system 

|p } is a column vector of the internal space-averaged, band-averaged pressure 
squared for each cavity of the system 

[c] is a square matrix holding factors that account for the energy stored and 
dissipated within each subvolume of the multiple cavity system. 


The band-average internal pressure squared is then found with 

|p 2 ( = [c ]" 1 M 


< 

K 

r 

ts 


The derivation of each matrix will be fully described in this section. 

3.1 Fundamental Model for Power Input Into Cavity 
from Structural Wall 

A vehicle structure will respond to excitation by a random pressure field according to 
the frequency domain relation 


W(x o , co) = J G(x q | x^j co) [p 6 ^, oj) - pHx^, co) dx^J 


where 


G(x„ I x' , co) is the structure's Green's function 
O I O 

2 

P (Xq, co) is the external exciting pressure 

p l (x' , co) is the induced interior pressure on the structure 


W(x q , co) is the displacement of the structure 


The internal pressure field is related to the vehicle wall motion by 
PHx^, co) = - pco 2 J G p (x Q | x^; co) W(x Q , co) dx Q 


( 4 ) 


(131) 


( 132 ) 
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where G^xjx^; co) is the Green's function for the vehicle's interior. 

The external pressure field is the sum of the pressure imposed on the surface by 

(6) 

external sources and the pressure resulting from the motion of the structure*' 

P 6 (Xq, Oi) = P bl (x^ oj)+ P u 2 f Gp(x o | x^; Oi) W(x o , 6>)dx Q (133) 

where 


rt 1 

G p (x o | x^; co) is the exterior field Green's function with the source point on the 
structure 

P bl (x o }<u) 

is the transformed pressure 


Define 



W(x q , co) = 

q r M <A r (x 0 ) 
r 

(134) 

P 1 (x q , <o) = 

2 m 'W 

(135) 


r 


where 

«A r (x Q ) is the in vacuum normal shell modes of the structure 
m is the areal mass 

D r (a>) is the shell dynamics or modal acceleration term 

substituting equations 134 and 135 into equation 133, transferring all terms to the left- 
hand side, and changing one of the summation indices for clarity, 


y| rn D p MiA r (x 0 ) 

+ poj2 f G p (x ol x o ; w) 


0* 

O 

II 

o 

(136) 

r 

x o 

n 




f; 
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Of 


which can also be written as 


rv m D r (^)^ r (x o )l + pco 2 

S/ G p (x ol x i'" ) W <Jx o <1 n < “ ) 

If 

x o J 


= 0 


(137) 


To determine the q n (co) for each frequency orthogonality may be used by multiplying 


through by </r,,(x o ) and integrating over the surface of the shell 


/ fe m D r (£j) ^r (x o ) ^r' (x o ) ] dx o + p0)2 ^ f ^ 
L r - n x 


,(x 0 ) 


L O 


/ 


G p^ x ol x o 5 a> ^n (x o )dx o dx c 


• q n M * o 


Because of the orthogonality, where 

J ^ r (x Q ) (A r ,(x o )dx o = 0 if r f r' 


equation 138 becomes the fundamental acoustic equation 


f ID + ‘ > “ 2 ^ J 


/' 


n L x o 


G®(x x' ; u)ib _(x' ' )dx’ dx. 
po o 7 no o c 


q n (<o) = 0 


Recall equation 131 and substitute equations 134 and 135 into it. 


y"l ^ r <x o )q r ( “* ■ / G ' x o l x 0 ! P e<x 'o’ < " )dx 


- _/ G(x 0 ! x o i< “ ) |"X] mD r^r (x 0 ) j 


dx. 


(138) 


(139) 


(140) 




'rrw ■ 


S 
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This is the fundamental structural equation in terms of normal mode expressions. 
Proceeding, the definition of the Green’s function of the structure as developed from 
LaGrangian equations is 


_ (x ) <£(x') 
G < x 0 1 X 0 : ^ *2 


M r Y p (eu) 


(141) 




f. 

*, i 


where 


M. 


is the modal mass defined as / m ^ (x)dx 


Y p (^>) 

(O 


V 

OJ 


S {(j? - 0?) - i T] 0? 

' r 1 r 

is the natural frequency of mode r 

is the structural loss factor (energy dissipation term) 

is the exciting frequency 


Substitute equation 141 into 140. 


53^r (x o )q r (6>) = f G(x o |x^<u) p e (x o ,a>)dx 0 


x o 1 1 


f W 

J Lj M t Y t ( ) 


£»°, W dx c 


(142) 


•i f 
i ? 


Working with the underlined term of equation 142, combine the summations. 
v-> ^ t (x)D r (6>) f 

£ £ M. • J m W W^o 

1 r x o 


I 

i. •» 
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V. v . * 


Again, orthogonality simplifies things, and the term becomes 


E «A t (x ) DJoj) r 

M t Y t (^ J ""W^c 


Since J m </^(x Q )dx o = M t , it further reduces to 
X « 

^(Xq) D t M 




Substitute this term back into equation 142 from whence it came. 
^ *A r (x 0 ) q p M = f G(x q | x^; co) p e (x Q )dx o 


E <W ®^M 

035 — 

t 1 


(143) 


To further simplify equation 143, multiply through by m <A c (x ) and integrate over the 

s o 

surface to obtain 

DM M 
M r q r (£u) + Y p M 

= / m *A r (x 0 ) f G(x q I w ) P e (x 0 , cj)dxJ j dx 0 (144) 

x o x o 

Substitute the equation for the Green’s function of equation 141 into 144. 

DM M 

“rV“> ♦ 

= / m <M x o> / 2 

x » x ;> t 


M ( Y t 


Mdx’ dx. 
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DM M 

M rV M) * Y p M = 


/ 


iA t (x ) P e (x . <o)dx 
CO o 7 o 


o 


M t Y t 


J m '/' r (*o ) 1 


(x’ )dx’ 
o o 


(145) 


Orthogonality makes the right-hand side of equation 145 equal to zero for all tfr, hence 
DM M ■> f _ 

M r q r (6j) + Y r (ft>)" = ^ / P (V^V^o (146) 

x o 

This equation expresses the shell dynamics of the vehicle structure. 


Define the generalized force on the structure. 

Q,» = / P 6 (x 0 , *>) 'A r (x Q )dx 0 
x o 

Substitute 147 into 146 and solve for the unknown D„M. 

r 

Q_M 

D r M = -{j— -Y r Mq c M 

r 


(147) 


(148) 


Equation 148 is simply a form of equation 131 obtained through several pages of 
contortions. This equation is used with a form of equation 132 by substituting equation 
148 into equation 139. The result is an equation relating the modal response of a 
vehicle’s shell to the internal acoustics of the vehicle (or cavity). 


-Q r (*>) = 


p*/w/ 

V X „ X’ 


W / G (x I x’ ; <u)iA(x’)dx'dx rt - M Y>)|q>> 


p' ol o’ roo o r r' : 'IT 


w 

sf " 2 / % ix 0 > f Gp(x 0 1 


(149) 
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Then, 


-Q p («) = (p^ I rr - M r Y r (co)j q r (co) po> 2 I pn q^o) 


(150) 


where 


J W / G p <x ol x o !lJ> W )dx o d!t o 
x o x o 


Equation 150 assumes the external pressure distribution is explicitly defined over the 
surface. Since the reradiated pressure term of equation 133 is sometimes significant, 
the equations can be developed to include those effects for theoretical completeness. 
It should be recognized, however, that the reradiated pressure effect can be neglected 
in most eases of interest. 


Substitute equation 133 — the definition of the external pressure field in terms of 
blocked pressure and reradiated pressure — into equation 147. 


Q p (6>) = 


/ P bl (x o’ "> + p “ 2 / G p< x ol x o- 

x o L x ; 


co) Vi(x.' Q , to) dx^ I i/f r (x o )dx o (151) 


Then 




Q r M = / P bl (x o’ w) ^r (x o )dx o 


+ poj‘ 


/w f G p (x o 1 x 0> 6j) w(x o> w)dx 0 


X rt X' 

o o 


Define 


(152) 


Q p V) 


r VA 0 /ax o 
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Recall equation 134 and substitute both into equation 152. 


Q r M = Q^M + P^ 2 J ^ r (x Q ) / G®(x q | x^, oS) ^ q t («) ^(x^dx 


x rt x' 

o o 


= QpW 


+ po> 2 £ / W / Gp( x 0 |%; 
x o x o 


L; *At (x o )dx o 


• q t (^) 


Define 

J 


rt 


= / -W f Gp<*oK’ w > W*! 


Substitute equations 155 into equation 154 


Q r H = Q^V) + poj2 ^ J rt • q t M 


Substitute 156 into equation 150. 


(pc? I rr - M f Y r M q f M) + ^ P“ ‘ r „ 0„< 


M 


n&* 


P« 2 L J rt • <l t M = -Qr 1(&>) 


Combine the t summation with the r and n. 


(P“ (1 rr + V * M r V">) %<“> + Yj pA* + J nr )< ’n < “ ) 
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Equation 158 defines the shell dynamics given an external blocked pressure field. It is 
essentially the same equation that was used in the low frequency model (equation 41). 
The matrix form of equation 158 is 


* KM 


and has the solution 


where 


{M ■ 

°rn “ [ a rn] 


(159) 


Substitute for q r (&>) in equation 134 from equation 159. 

W( V “> = - L L *m w 

r n 


(160) 


The one-sided cross-power spectral density of displacement is defined: 


S w <x oK«“ ) * T™«! b '«V“) W * (x o’“) 


(161) 


The Fourier transform is obtained over a sample length, T. All terms shown to be an 
explicit function of o> are implicitly a function of the sample length. Random processes 
are fully described in the frequency regime as the sample length is allowed to go to 
infinity and the random variable approaches a limiting value. 


Substituting for W(x Q , o>) from equation 160, 


S w (x o I x o ; *** ~ T^co T 2n XI 02 ^ S a rn a sm W 


m 


• • QgV) 


(162) 
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■// 

x rt x « 
o o 


P bl (x o’ a>) P bl (x o’ 6J) ^ / r (x o ) ^s (x o )dx o dx c 


Let 


S pbl (X o |x o ! “ ) = 


T— to T 2» P bAo’ P bl' X o’ 


Then 


L EL E a m a »ww 


r n s m 


/ / S pbl (x ol x o ; a,) l ^r (x 0 ) ^s (x o )dx o dx c 


x rt x « 
o o 


which is the one-sided cross-power spectral density of displacement. 


(164) 


The net power radiated into the cavity can now be calculated. The internal cross-power 
spectral density is 



lim 2 
T^oo T 


(s) pl( V‘ J>W * (x o’" ) 


Substitute for p ! (x , o>) from equation 132. 



lim 2 / ict> \ 

T—ooT \27r/ 



(165) 


(166) 
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Using equation 161, equation 166 becomes 


S(x I x' ; oj) a ipcu 3 / G (x lx" ;a>) S (x"|x' ;o>)dx" 
P O' O J polo w 01 o o 


( 167 ) 


Let x" -»• x and integrate S (x„ x' : <o) over the transmitting area of the structure to 
0 0 ° p o o 


obtain the radiated power spectral density. 


W rad (w) = 


- i P<u l 


/ / G (x J x' ; co) S (x' x ; a>)dx' dx 
J J p o» o woo oc 


(168) 


x rt x « 
o o 


Using equation 164, 


W rad (cj) * a w a lm/f G p (x o l’ t o'“ ) ' 4 r (x o ) W <ix o dx o 


r n s m 


x^ x' 
o o 


f f S pbl (x ol x o 5 ^ ^n (x ? ^m (x o )dx S dx o 


(169) 


x" x m 


o o 
which becomes 


W 


rad 


(o>) - - i p(o^ A ^ S . ,(o») \ S a a* I (<^) (<*>) 

t pbi ^ rn sm rs nm 


(170) 


r,n,s,m 


where 


I M 

rs 


■It 


G p (x o I x o 5 6J) *W ^s (x o )dx o dx o 


x A x « 
o o 


nm 


A* S^Mo) 



s pbl (x 0 1 x o ; W ,A n, (x o Wx o dx < 


X 


o o 


S hl (<a) is the external blocked pressure spectrum and A is the surface area. 
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is termed the joint acceptance. The term was also used in the modal analysis 
portion of VIN (see equation 78). The methods used to calculate the joint acceptance in 
the low frequency regime still apply. In addition, empirical techniques can be used 
successfully as the modal density becomes great and SEA approximations become valid. 

Two important assumptions can usually be made to significantly simplify the calculation 
of the net power into the cavity. The first is to assume weak coupling and the second is 
to neglect cross-acceptance terms. The following excerpt from the PACES analytical 
model presentation^’ ^0“22) p rov ^ es ^ excellent description and defense of these 
assumptions. Making these assumptions, equation 170 becomes 


W rad ( “> = - P- 3 A 2 S M £ |« rr | 2 I rr H J>) 

r 


where 


l a rrl 


M Y M - p<o L (J+I ) 
r r rr rr j 


(171) 


It is common, in the analysis of acoustic transmission from a structure to a 
cavity, to assume that the coupling is weak when the fluid in the cavity is 
gaseous. Under this assumption the coupling between structure and cavity 
can be calculated using the in vacuo panel resonance frequencies and the 
blocked, or rigid wall, resonant response of the cavity. Mathematically, this 
means that the power flow between a mode of the structure and a mode of 
the cavity can be evaluated without including the interaction of any other 
mode. The assumption of weak coupling will be made in the development of 
the present analytical model for the payload bay acoustics. 


Having made this assumption, some justification should be provided. Unfor- 
tunately, this is difficult in general terms, although the results of Lyon and 

Maidanik' provide at least a sufficient condition for weak coupling. The 
condition is 

B « and B « Ao>„ 
rn r rn n 


where 


1/2 


B 


rn 


vm y r y n 


A L 


nr 


V is the volume of the cavity, M the total mass of the structure of area A, 
y - 1/4 and y n = 1/8, 1/4, 1/2 or 1 depending on mode order. Also Aa> r and 

Ao> n are the structural and acoustic mode bandwidths respectively. The 


55 


function L nr is the coupling factor between the structure and the 
cavity... [as defined in section 2, equation 25]. 

Applying this criterion to the Shuttle payload bay, it is seen that the 
criterion is not satisfied in the lowest frequency bands of interest. How- 
ever, there are two additional factors to be considered. Firstly, effects of 
strong coupling will be important only when the structural mode is a 
volume-displacing mode. Such modes constitute only one-quarter of the 
structural modes; weak coupling can be assumed for the other three- 
quarters. 

( 8 ) 

Secondly, there is evidence that strong coupling will be destroyed if there 
are air leaks in the cavity, and, in practice, the payload bay will not be 
airtight. Therefore, it appears that the assumption of weak coupling is 
reasonable for the acoustic model of the payload bay. In VIN this model is 
only used in the higher modal density regime where the weak coupling 
criteria are easily met. 

It should be emphasized that the assumption of weak coupling, i.e., no 
acoustic coupling of structural modes, in no way excludes so-called well- 

(7 9) 

coupled acoustic and structural modes, which occur ’ when acoustic and 
structural modes have "maximum proximate mode coupling". That is, the 
resonance frequencies of the structural cavity modes are closely spaced 
relative to the modal bandwidths. The condition for well-coupled modes is 
(7) 

variously written as 

1 I < (Aco n + Ao> r ) 

( 10 ) 

or 

2 I co — o> I < (Ao» + \co ). 

In r I n r 

It is appropriate at this stage to include also a brief discussion of the cross- 
acceptance, since this also is a structure-fluid coupling function. Wilby^ 1 ^ 
has compared contributions from joint and cross acceptances for lightly 
damped rectangular panels exposed to either subsonic turbulent boundary 
layer or convected acoustic plane wave excitation. In almost all cases the 
cross acceptance contribution to the panel response power spectral density 
is negligible. This is true both at frequencies close to resonance frequencies 
and at frequencies away from resonances (the latter being the more critical 
condition). Thus, within the accuracy of the analytical model, cross 

o 

acceptance terms can be neglected (i.e., j tn M ~ 0, t £ n). 
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3.2 Adaptation of Power Input Model to 
Statistical Energy Analysis Form 

The previous section developed a modal analysis equation for the power radiated 

through the walls of a cavity from an external pressure field. It must now be modified 

into statistical form for use when the vehicle's acoustic modal density becomes large. 

As a first step in this modifiction, energy loss from the structure caused by interaction 

o 

with the internal cavity air will be neglected (pa I rr w 0). Also, the structural energy 
loss caused by external acoustic radiation of energy will be combined with the 
structural damping loss factor r). Hence, realizing only the real power is of interest, 
the power radiated into the cavity is 


W rad (< “> * 


A * W" 1 


m 


(l„M) J>) 


M r Y r (o>)]' 


(172) 


where I I {co)j is the imaginary part of I (co). 
m \ rr f rr 

When the acoustic mode count within a band becomes sufficiently dense^ 2 ’ 


I 


m 

and since 


(y 6 *)) = r 


RfM = I A 2 jfV) 


(173) 


(174) 


= 2 4^ in V>> 

o 


(175) 


Substitute equation 175 into equation 172 along with 


W rad ( “> * 
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The internal joint acceptance, (<o), the coupling of the motion of the structure with 
the internal pressure at the structural/acoustical interface, is equal to the joint 
acceptance with a reverberant field in the higher frequency range. 


The power flowing through the wall structure into the cavity in the band Ao> with 
center frequency o> is, therefore, 

V 


GJ 


J 


W rad (6j)d£J = 


PA 

2nC. 


P 


M 2 


J Y I 2 

co, r 


dco 


(177) 


where 


Spbi(o> c ), J 2 (<i> e ), and J 2 (w c ) are all assumed to vary slowly over the band. 


The solution to equation 177 can be broken down into the summation over three types of 
structural modes: those modes resonant below the band, those resonant in the band, and 
those resonant above the band. Once the structural modal density becomes relatively 
high, those modes above the band can be neglected with little adverse effect on 
accuracy. Hence, 


W = o> nr + a/ es 
"rad rad rad 


(178) 


nr 

W ra d is power from modes resonant below the band 

P6S 

Iff a( j is the power from modes resonant in the band 
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W. 
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(180) 


where 

<^y> r denotes average values of the enclosed terms over the band of interest 
n r is the structural modal density in the band of interest 

Evaluation of the integrals over frequency in equation 179 is carried out analytically in 
the same way as the identical integral in section 2, equation 82. The integrals over 
frequency in equation 180 can be estimated by 


p „ r 
L v-* 2 IV“>I : 


QCJ 


TT(ti r 


21 ? 


(181) 


59 


Ofti&irtAL MGS tS l 

OF POOR QUALITY 


The band-limited external power input to cavity k of a multiple cavity system can be 
estimated with the equation 


W(R) = iC 

s 


rgy 

PA 4 V' J >c> t t"e» 

W~o' • 2ffC * Zj ^ 

° r<band M r 




■[' 


CO 


V>)|' 


d " + s pbW • £e- 
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■/>> /* V) 
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77(0, 


2r? 


surface s 


(182) 


where 

s is adjacent to the volume k 

W(k) is the system external power into cavity k of a multiple cavity system 

The relative significance of the input power from a nonresonant mode decreases rapidly 
the further the nonresonant mode is from the band of interest. Figure 1 clearly 
demonstrates this fact. If two or more modes occur within the band of interest, the 
modes occurring outside the band will provide relatively little to the overall sum. At 
most, the modes in the two previous bands will be of importance if the number of 
structural modes in the band of interest are sufficient for SEA approximations. Hence, 
the power input from modes not resonant in the band can be estimated by 


W. 


nr ~ 


rad 


band 


b=(band-2) 


PA 

IZc- * SpbW • "b 


J b 


rev ^2 

f _^L_ 
5 /b V KH 5 


d co 


(183) 


60 


0.2 0.4 0.6 0.8 • 1.0 il.2 



Band of Interest 



1.4 1.6 1.7 1.8 I 


where w/w, - ratio of the modal natural frequency to the center 
frequency of the band of interest. 

v/v - ratio of the intergral over the band of interest of 
/v b a mode at to the integral over the band of 

interest of a mode at the center frequency of the 
band of interest. 


Figure 1. Modal Contribution to the Band of Interest 
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where 

b is index designating the band containing the "nonresonant" modes 
<o is the center frequency of the band of interest, r 

V 

is the modal density in the band b below the band of interest 

|Y b (cu)| 2 is the typical response characteristic of a mode in band b. 

is the average value of the bracketed terms in the band b 
b 

The final equation for the system external power input into volume K of a multiple 
cavity (and multiple surface) system becomes (substitute equation 183 into 182) 


WOO = 

s 


vw • 


band 

T 


I PA- , 

1 2 IT C AW fr 

v 0 b=(band-2) 


PfiV 

M? 


^ ^ 
b 


tec 


Cl) ' 


Y h M| 


dco 


PA 
2n C 


n r * 


2 o reV 

J r ^ c )^ r <%). 

M 2 


TT Cl), 


277 


(184) 


J surface s 


Often, semiempirical methods are used to estimate the joint acceptance for various 
external pressure field/surface element-type combinations. When this is done, estima- 
tions for J^c^) are seldom available. then, must be approximated by J b (<D b ), 

where ca^ is the center frequency of band b. If the exterior pressure field magnitude is 
expressed in terms of band-limited mean-square pressure, the Sp b j(cc> c ) is replaced in 
equation 184 by the band level divided by the bandwidth. 
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3.3 Power Dissipation from the Cavit 


The previous two sections developed equations for the calculation of the system 
external power transfer through the structural walls into the cavity (the input power 
matrix { W }). This section will develop the SEA expressions for the power transferred 
from or dissipated in the cavity. Power can be dissipated from a cavity through (1) the 
structural walls adjacent to the cavity; (2) openings to adjacent cavities — this may be a 
positive or negative; that is, power can also flow into the cavity through openings — (3) 
absorption of power by the cavity wall surfaces. Expressions for each of these modes of 
power "dissipation" will be developed for use in the power balance equation and will 
form the coefficient matrix, [c]. 

Expanding on the introduction, define 


C(k, k) = ^ C.(k, k) + C a (k, k) + ^ (k, k) 

j l 


(185) 


C(k, i) -^C,(k, i) 

l 


where 


C.(k, k) - Coefficient for power transferred out of cavity k through wall j 

J 

of the cavity 

C a (k, k) - Coefficient for power absorbed in cavity k by the surfaces of the 
cavity 

^ C£ (k, k) - Coefficient for power transmitted from cavity k to an adjacent 
i cavity through opening l 

T. C^(k, i) - Coefficient for power transmitted from cavity i to cavity k 
l through opening l 
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3.3.1 Power Transferred from the Cavity Through the Structural Walls 

Outward transmission of power through a structural wall is simply the reverse of the 
input power process. 


W out * " A n r 


« rev 

Jr ) 
r c 

M_ 


(186) 


assuming the internal joint acceptance approaches the joint acceptance for reverberant 
excitation and the power transferred out of the volume due to nonresonant modes is 
negligible in the SEA regime. 

The total power transferred out through the structural walls j of cavity k is a linear 
summmation over all walls adjacent to the cavity. 




rev 

( “c> \ 

M r 4 


-1 surface j 


(187) 


3.3.2 Power Transferred Through the Openings of the Cavity 


A very rough estimate of the power transmitted through the openings in a cavity to or 
from other cavities of the multiple cavity system can be obtained using Green's 
function concepts and requiring the pressure at the opening between cavities to be 
equal. The conductance of an opening is defined as 


r = PC A Re 
o 

where 





(188) 


V n (x Q ) is the particle velocity at A due to mode n of volume 1 
P n (x Q ) is the particle pressure at A due to mode n of volume 1 
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(4 d 375) 

Pressure is calculated from the Green’s function by ’ 


p(x 0 ) = i6>p / G 1 (x o | x y v n (xydx' o 


= -i cop f G 2 (x ol x o )V n (x o )dx o 


(189) 


where 


and G 2 are the Green's functions of the cavities connected by the opening 


V(x^) is an imposed velocity at the opening 


Let G^Xq [ x q) be Gj(x q j x^) with the n-th term deleted. Then from equation 141, 


, | , . _ v 'W 

G i (l ‘oK ) - Is 
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Hence, 


ict>p 


J G,(x lx’ ) V (xjdx - P (x' ) + ik PC f G' (x I x’ ) V (x )dx 
^ l o 1 o mo o no o j l o ' o n o c 


Solving for P (x* ) 
no 


p (x* ) = 

n v V 


- ict>p 


f G l (x ol x o ) G l (x ol x o } V n (x o )dx c 


(190) 


Substitute equation 190 into 188. 


r = PC 0 A Re j -if-op J f ( ( G i< x ol x 0 ) + g 2 (xJx o )) 
v v v* x 


o o 


(W/W) % dx o) 
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Assuming V (x ) = V (x 1 ) = constant and that the subvolumes have sufficiently large 
n 0 n 0 (4) 

wall losses, Morse and Ingard state 


~ i( ° P l / ( G ' l(X ’°^ o) + G 2 (x ol x o )dx o) dx o - 2Z c (192) 

o o 


where Z is the impedance of a baffled plane piston of area A radiating into two half 

V 

spaces and is 


Z c = (0-iX)A PC Q 


This yields 

T= pC Q A Rej^Z^" 1 ] 


6 

20 2 +X 2 ) 
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(194) 


where 


6 is the normalized reactance of the opening 
and X is the normalized resistance of the opening 

The power transferred through the opening can be calculated by 


W. 


2pC o / (0 2 +X 2 ) 

x o 


p(x 0 )dx 0 


(195) 


where p(x Q ) is the pressure at the opening and A is the area of the opening. 

In the high frequency, high modal density regime, SEA approximations along with the 
above developments to yield 


W. 
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(196) 


66 




HBSiSsK'WPfc " 


ORIGINAL PAGE C9 
OF POOR QUALITY 


Where <(p^)> and <(p^y are the space-averaged band-averaged pressure in cavities 1 
and 2 respectively and T ss 1/2 given the case of many oblique modes. Hence, for the 
high frequency regime where there are many oblique modes, 


C T k ’ k) = *4 ( (£,2^2) ) 


(197) 


and 


(k, i) 



l - is opening number 
A ^ - area of opening i 

dg — normalized resistance of opening £ 
o 

X '£ - normalized reactance of opening £ 

Estimates for the conductance are only available for simple opening geometries. When 
the acoustic wavelength is short compared to the opening size, the conductance is 
somewhat shape independent and primarily a function of total area. The openings 
should offer very little resistance to the flow of acoustic power between subvolumes. 
The important aspect of the conductance estimate is that the relative resistances of 
the several cavity openings are roughly estimated. This defines the distribution of 
acoustic power between the subvolumes. 


3.3.3 Power Absorbed by the Walls of the Cavity 

The power absorbed by the walls of the cavity is an extremely important part of the 
SEA calculations. The inaccuracies associated with the calculation of this term can far 
outweigh the effects of all other SEA approximations combined. The power absorbed by 
the walls of the cavity is 

W abs * 2P^Z A / P «>A £ i 

l 
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lot • ,» * i ‘ V 


where 


Assume 


A ^ is the area of surface 

€£ is the conductance of surface 


<»;> is twice the band-limited mean square pressure averaged 
surface 


<P»> = <P*> -4 

N 1 X A x 'volume 

where is the space-averaged, band-limited pressure over volume k. 


Then 


w 


abs 


= pc E A /^ P k^ € i 


where all surfaces, l, are adjacent to volume k. 


In the high frequency regime where the modal density is great, 

h “ Y 8 


Substituting 


W, 


abs 


4 PC E < P k> 
° f 


Hence, 


C a (k, k) 


4PC E a l A i 
° l 


over the 


(199) 


( 200 ) 


( 201 ) 


where a is the band-limited random absorption coefficient of wall l and wall i bounds 
cavity k. 


Section 4 


COMPUTER PROGRAM 

The computer program VIN implements the modal and statistical energy analysis 
methods presented in sections 2 and 3 in user-oriented, general purpose form. The two 
analysis methods are functionally separate techniques. The modal analysis portion of 
the program can provide both discrete frequency and band average estimates of a 
vehicle's interior pressure given the external excitation of the vehicle structure. While 
the technique is theoretically valid over any frequency range, the number of structural 
and acoustic modes required to obtain acceptable accuracy can become computationally 
prohibitive as modal densities increase with frequency. Band-averaged, space-averaged 
estimates of the vehicle interior pressure can be obtained with statistical energy 
analysis when the modal density becomes sufficient to justify the technique's assump- 
tions. The program is structured to allow an easy transition between the methods 
during a single computer run with the geometry definition methodology as the "common 
connecting ground." 

The vehicle structure can be represented by any number of "elements" with known user- 
supplied, in vacuo response characteristics. The user may describe each element's 
response characteristics in the coordinate system and orientation best suited for that 
particular structure. The acoustic modal response characteristics of the vehicle's 
interior space can be calculated by the program from user-supplied hardwall acoustic 
response characteristics of smaller, simpler cavity shapes that approximate the 
vehicle's interior space. The method utilized, acoustic component mode synthesis, is 
described in mathematical detail in section 2. When the acoustic modal density is 
sufficient to justify the SEA assumptions, detailed acoustic response characteristics are 
no longer required and reverberant acoustics are assumed. The user must also define 
the external acoustic field on the vehicle and make various program option selections. 

In section 4, the organization and structure of VIN is documented. The nuts and bolts of 
the program's use is described in section 6, "Computer User's Manual." 
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The key ro?, 1 tines of the program VIN are outlined below. The routines are first called t _ , 

during execution of the program in the order in which they appear in the outline. The \ 

program is segmented so that only those routines needed for each particular stage of i'f 

the problem solution are held in core memory. The core data storage requirements are ' | i, 

a function of the specific problem size and the options selected by the user. The program jj 1 

code is in ASCII Fortran (LEVEL 10R1). A random access mass storage device and line ; I ‘ 

printer are the only required periferials. ' T 
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b. CJA 

c. WMAT 

d. CM AT 

2. SEAPRM 

3. SEARES 

PART I. Program Initialization and Control 

1. MAIN 

MAIN sets up the required mass storage files and dynamically allocates array 
storage based on the current problem size given by the input data. The routine also 
controls the flow of the program calculations. It resides in core memory throughout the 
execution of the program. 

Since the program dynamically allocates the array storage based on input data, 
core storage is always efficiently used regardless of the problem size. Dimension 
statements do not limit the problem size or complexity in any way. 

2. DATALD 

DATALD reads all the required input data from a specified data file, data cards, 
or mass storage files. The input is fully mirrored to a user-selected output device. 
Some diagnostics are provided to flag gross input errors. The coordinate transfrmation 
matrices, which fix the location of the structural and acoustic elements in global space, 
are calculated. Any new finite element data to be used to defined an element's 
response characteristics is loaded and converted into two-dimensional fourier series 
form in DATALD. 

The input data establishes which program calculation and/or data manipulation 
options are desired. The input also defines the structural and acoustic geometry and 
response characteristics along with the external pressure field excitation. 
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PART II. Modal Analysis 

1. FRQCAL 

FRQCAL is a group of routines that calculate the natural frequencies of the 
volume, opening, and surface elements that are included in the program's library of 
modal elements. 

2. BNDCAL 

BNDCAL calculates the modal summation bandwidths, BANDWN and BANDWM, 
as described in section 2.2.5. These bandwidths are used to limit program calculations 
at each band of interest to only those structural and acoustic modes of significant 
importance to the overall results in that band. 

3. MULPRM 

MULPRM calculates the parameters required for the acoustic component mode 
synthesis that is carried out in MULCV. 

4. MULCV 

MULCV calculates the modal response characteristics of acoustic spaces of 
complex shape from the known response characteristics of simplier shapes combined to 
approximate the complex shape. The acoustic component mode synthesis performed in 
MULVC is fully described in section 2.2.1. 

5. PRMCAL 

PRMCAL is actually a group of routines that either calculate or direct the 
calculation of the parameters needed for modal analysis of a complex cavity shape with 
multiple structural walls. These routines are 

a. GENMAS. GENMAS calculates the generalized acoustic mass of a cavity 
whose modes were obtained through component mode synthesis, 

b. LNMCAL. LNMCAL calculates the structural/ acoustic coupling coeffi- 
cients, LNM for those structural and acoustic modal combinations that are 
important to the problem solution. 




c. ZANCAL. ZANCAL calculates the cavity acoustic damping from the cavity 
modal response and each wall's normal absorption coefficient. 

d. RJACAL. RJACAL calculates the joint acceptance of a given external 
excitation field with the modes of the structure for each frequency band in which 
the structural mode has a significant response. 


e. MODES. Modes is a group of routines, accessed by PRMCAL, that provides 
acoustic, opening, and structural mode shape information. The information is 
organized in the form of a program library of modal elements. This program code 
held library provides both geometric and modal response descriptions. MODES 
also contains routines for the numeric and/or analytical surface integrations 
required to calculate the modal analysis parameters. 

6. MDLPRM 

MDLPRM outputs to paper the program calculated parameters used in the modal 
analysis portion of the program. 

7. CALC 

CALC calculates the interior pressure of the cavity in two forms: space- 

averaged, band-averaged pressure squared (SABAP) over each subvolume of the cavity 
and the SABAP over the entire multiple cavity system. The external excitation can be 
random or deterministic but must be described in the frequency domain. 

8. DFCALC 

DFCALC calculates the interior space-averaged pressure at discrete frequencies. 
The external excitation can be random or deterministic but must be described in the 
frequency domain. 
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9. REVERB 

REVERB estimates the reverberation time of complex shaped cavities with 
arbitrary surface absorption characteristics. The fundamental parameters used in the 
estimation are calculated in PRMCAL. 

PART III. Statistical Energy Analysis 

1. HFHEQ 

HFREQ calculates the space-averaged, band-averaged pressure squared over each 
subvolume of an arbitrarily shaped cavity. The external excitation must be random. A 
brief description of the technique and the assumptions implicit in its use are given in 
section 6.3. A collection of routines is needed to assemble the SEA band-averaged 
power balance equations. The equations are solved for each band of interest. 

a. CBJAL. CBJAL calculates the band-averaged joint acceptance for the 
modes resonant below the band of interest for each surface exposed to external 
excitation.. 

b. CJA. CJA calculates the band-averaged joint acceptance of the modes 
resonant in the band of interest for each surface exposed to the external 
excitation. 

c. WMAT. WMAT prepares the input power matrix for the power balance 
equations. 

d. CMAT. CMAT is a group of routines that prepares the matrix representing 
the power dissipation mechanisms of the SEA system. This includes power 
transferred between subvolumes of the cavity, power absorbed by the cavity 
walls, and power transferred out of the system through the walls of the cavity. 

2. SEAPRM 

SEAPRM outputs to paper the program calculated parameters used in the SEA 
portion of the program. 

3. SEARES 

SEARES outputs the results of the SEA portion of the program calculations. 
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4.2 Flowchart 

The program MAIN, which directs the flow of VIN's computations, is charted in this 
section. In section 6, detailed information is provided about the routines that the user 
may desire to access and update (structural and acoustic geometry definitions, response 
definitions, and surface integrations). The remainder of the routines should be 
considered black boxes — not to be tampered with. Nevertheless, the program code is 
commented throughout for basic documentation purposes. 
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T 

Establish labeled common areas 


Establish mass storage file reference numbers 


Call DATALD: Reads input cards A - E 


Define the mass storage file sizes based on the input data 

I 

Load previously calculated parameters from data tape 
into mass storage files 


Dynamically allocate array storage space if input data 


o 


Call DATAL: 

o Reads input cards E - Z 
o Calculates global/component coordinate system 
transformation relationships 

Calculates fourier series coefficients for any new modal 
information supplied in data form 


If the lowest band of interest, LBAND, 
is equal to the band at which the SEA 
assumptions become valid, MBAND 
(LBAND = MBAND) 




Call FRQCAL: Calculates the natural frequencies of the 
acoustic, opening and structural elements 
of the problem 


If the modal analysis acoustics for the problem 
have been precalculated or the problem 
has only one subvolume 
(IPRE(1) = 1 or nv = 1) 



space for the acoustic component 
mode synthesis calculations. 

J 

Call MULPRM: Calculates the 
coupling factors, L , between 
the modes of the acoustic subcav’- 
ties and the openings. 

Call MULCV: Performs the compo- 
nent mode synthesis calculations. 

J 

Free array storage space allocated 
for acoustic component mode 
synthesis calculations. 


0 
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Dynamically allocate array storage space 
for modal analysis parameters 


Call BNDCAL: Calculates the bandwidths BANDWN and 
BANDWM, which define the limits of acoustic and 
structural mode importance in the frequency domain 


If the acoustic mode shapes for the volume have been 
precalculated for this problem (held in data files) 
or if the volume consists of a single subvolume 
(IPRE(2) = 1 or nv = 1) 



Dynamically allocate space for 
remaining component mode synthe- 
sis calculations. 


\ 


Call VPNMC: Calculates influence 
coefficients for complex cavity. 


Free storage space allocated for 
all component mode synthesis 
calculations. 


"tS 


Call PRMCAL: Calculates tHe parameters required for the 
modal analysis problem at hand considering the data 
already available in mass storage 


Call MDLPRM: Outputs to paper the program calculated param- 
eters used in the modal analysis portion of the program 


<h 
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t 

If selected option is 1 or 3: Band average calculations 
(IOP = 1 or IOP = 3) 



■f 

If selected option is 2 or 4: Discrete frequency calculations 
(IOP = 2 or IOP = 4) 



If selected option is 5: Multiple cavity analysis only 



19 



If selected option is 6: Reverberation calculations 
(IOP Eq. 6) 

Yes 


Call REVERB: reverberation time 
calculations. . 


End 


» 

If the band at which SEA assumptions become valid, MBAND, is equal 
to the highest band of interest, IHBAND, or the option selection 
was not 1 (MBAND = IHBAND or IOP 1 1) 

i 




Free all modal analysis array space 
and dynamically allocate the array 
space needed for the SEA calculations. 


Call HFREQ: Calculates the band- 
averaged, space-averaged interior 
pressure over each subvolume 
of the multiple subvolume system. 


Call SEAPRM: Outputs the important SEA parameters 
calculated by the program to printer 


CALL SEARES: Outputs the final overall results of the 
program's SEA noise calculations 


1 


Store all mass storage file parameters on data tape 
if requested by user (NTAPE. NE. 0) 


END 
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Section 5 

COMPUTER PROGRAM VERIFICATION 

The modal and SEA analytical models, as implemented in the computer program VIN, 
were verified by the following series of test cases: 

1. Acoustic component mode synthesis 

2. Modal analysis parameter calculations 

3. Modal analysis noise predictions 

4. Statistical energy analysis noise predictions 

The results of each step are discussed in turn. The application of the program to the 
very complex Space Shuttle payload bay problem is given in section 7 with comparisons 
to both on ground experiment and flight data. As will be further discussed later, the 
complexity of the Space Shuttle structure and flight environments make it a poor test 
case for the evaluation of basic analytical and computer methodology. The input data 
for each test case is given in appendix E. 

5.1 Verification of Acoustic Component Mode Synthesis 

The modes and mode shapes of a rectangular cavity with a partial partition were 
calculated to exercise the component mode synthesis capability of the program. The 
results were compared with experiment as recorded in the literature.^ 1 ^ The cavity is 
illustrated in figure 2. The error in acoustic modal frequency over the first dozen 



FIGURE 2. Acoustic Component Mode Synthesis Two-Cavity Test Case 
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modes is given in table 1 as a function of various modal retention parameters. Analysis 
of mode shape accuracy is germane in this model only in the context of surface 
integrations. Component mode synthesis determined mode shapes are discussed in this 
regard in the next section. 

To exercise the program's ability to handle more than two subvolumes, the cavity was 
divided into three subcavities, as illustrated in figure 3. The results, given in table 2, 
complete the verification of the calculation methodology and computer implementation 
of the acoustic component mode synthesis. 

I ! I 


FIGURE 3. Acoustic Component Mode Synthesis 
Three-Cavity Test Case 

5.2 Verification of Modal Analysis Parameter Calculations 

Each modal analysis computational option uses the same baisc parameters to describe 
the system. These parameters are calculated in the routines GENMAS, LNMCAL, 
ZANCAL, RJACAL, QMWBCL, (see section 4.1 under PRMCAL). The calculation of 
GENMAS (the generalized acoustic mass of the multiple cavity system), LNMCAL (the 
structural/acoustical coupling coefficient), and ZANCAL (the acoustic damping of the 
cavity) each involve, among other factors, a surface integration and the results of the 
acoustic component mode synthesis. Given a correct integration technique, the 
accuracy of each is a function of the component mode synthesis approximation of the 
acoustic multiple cavity mode shape: 

p n' ( V F n' (x 0 ) 

V 


w 


n' 
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TABLE 1. COMPONENT MODE SYNTHESIS: TWO CAVITY RESULTS 


Mode 

VIN-A 

(Hz) 

VIN-B 

(Hz) 

Finite 
Element 
Analysis 
(4 elements) 
(Hz) 

Measured 

Frequency 

(Hz) 

1, 0, 0 

668 

672 

635 

570 

0, 1, 0 

1330 

1330 

1377 

1330 

1, 1, o 

1443 

1442 

1365 

1448 

2, 0, 0 

1494 

1474 

1625 

1470 

O 

o 

H- 1 

1522 

1536 

1550 

1534 

1, 0, 1 

1571 

1551 

1615 

1555 

3, 0, 0 

1909 

1869 

2080 

1840 

2, 1, 0 

1970 

1963 

2100 

1980 

0, 1, 1 

2018 

2089 

1942 

2036 

2, 0, 1 

2059 

2293 

2242 

2120 

2, 1, 1 

,2095 

2436 

2910 

2500 

Average 
Error ( 96 ) 

1.96 

2.4 

4.5 



*VIN calculation with 5 opening modes retained. 

* * VIN calculation with 10 opening modes retained. 
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TABLE 2. COMPONENT MODE SYNTHESIS: THREE-CAVITY RESULTS 


finite 

Element 


Mode 

VIN-A 

(Hz) 

VIN-B 

(Hz) 

Analysis 
(5 elements) 
(Hz) 

Measured 

Frequency 

(Hz) 

1, 0, 0 

587 

569 

591 

570 

0, 1, o 

1296 

1296 

1346 

1330 

1 j 1 f 0 

1453 

1452 

1470 

1448 

2, 0, 0 

1474 

1474 

1630 

1470 

0, 0, 1 

1518 

1570 

1550 

1534 

1, 0, 1 

1572 

1646 

1597 

1555 

3, 0, 0 

1862 

1884 

2043 

1840 

2, 1, 0 

1929 

1926 

2116 

1980 

0, 1, 1 

1987 

1985 

2041 

2036 

2, 0, 1 

2017 

2018 

2255 

2120 

Average 
Error (%) 

1.96 

2.4 

4.5 



*VIN calculation with 5 opening modes retained. 

* *VIN calculation with 10 opening modes retained. 




where 


F^,(x o ) is the hard wall acoustic mode shape of the subcavity, v. 

a v 

M“ is the generalized mass of the subcavity v for the mode n*. 

pJJ,(<o n ) is the multiple factor of constraint that relates subcavity mode 
shapes to the multiple cavity mode shape at the natural frequency, 

"n* 

The accuracy of the component mode synthesis for a given problem is solely a function 
of the number of opening and acoustic modes retained in the analysis. The higher the 
natural frequency of the multiple cavity, the more modes* of both opening and 
subvolume, are required. A banding technique is used to reduce the modal retention 
requirements. The acoustic modes nearest the natural frequency being calculated are 
retained. The opening modes that couple well with the subvolume acoustic modes being 
used are also selected. Since other factors, such as the complexity of the multiple 
cavity system, the number of openings, the shape of the openings, also have an impact 
on the number of modes required for a given accuracy, important problems should be 
repeated with increasing modal retention (opening and acoustic modes) until the 
solution is shown to converge. 

The mode shape accuracy is integrally connected with and directly related to the 
accuracy of the natural frequency calculations as presented in the previous sections, 
is derived directly from the matrix that determines the natural frequency. 

RJACAL requires integrations of the structural mode shape and the external pressure 
field over a surface. The program uses both analytic expressions and Gaussian 
quadrature for the integrations. The two types of calculations were checked against 
each other. The integration precision is easily within the accuracy of the analytic 
descriptions of the external pressure fields and of the structure's mode shapes. 

5.3 Verification of Modal Analysis Noise Predictions 

The previous section demonstrated that the acoustics of a cavity of complex shape can 
be estimated with component mode synthesis. This section shows that the modal 
analysis equations and methodology as implemented in VIN provides adequate noise 
predictions given correct structural and acoustic response data. In this regard, simple 
test cases with little lattitude for input data inaccuracies provide the clearest 
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verification. Since the accuracy of the component mode synthesis calculations were 
tested, as reported in section 5.2, the remainder of the modal analysis calculations can 
be verified with a single cavity test case. 

5.3.1 Modal Analysis With Random Excitation 

An experiment with fairly well-defined structural and acoustic characteristics was 

( 12 ) 

selected from the literature. The test configuration is shown in figure 4. The one- 
third octave band results are compared with the predicted levels in figure 5. The 
program's discrete frequency calculation results are given in figure 6. 

5.3.2 Modal Analysis With Deterministic Excitation 

The only difference between the random and deterministic options is in the calculation 
of the generalized force over the transmission surfaces of the enclosure. All other 
portions of the calculations are shared. Since the accuracy of the generalized force 
calculations was tested in section 5.2, the test cases for random excitation also verify 
the modal analysis options with deterministic excitation (see section 5.3.1). 

5.4 Verification of SEA Noise Predictions 

Because of its very nature, statistical energy analysis can only be used given some form 

of random excitation. As previously presented in detail, the SEA model implemented in 

(4) 

VIN is a modified form of the PACES model and provides space-averaged noise 
estimates for each of several interconnected cavities. 

All but one aspect of the SEA power balance equations can be tested with a simple 
single-cavity test case. The excluded aspect is the power flow that occurs through the 
openings between cavities in multiple cavity cases. 

A simple single-cavity experiment was chosen from the literature to exercise the bulk 

(13) 

of the SEA computations. In this experiment a common 55-gallon oil drum was hung 
in a reverberation room. One-third-octave band noise reduction was measured over the 
range of 125 to 12,500 Hz. A comparison of SEA calculations to experimental results is 
shown in figure 7. The results are well within the usual accuracy of SEA estimates. 


V v. : 
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Both acoustic and 
structural damping were 
estimated (not measured)! 
and assumed constant. 











While the multiple cavity capability may seem much more complex than the single 
cavity case, only one addition factor is added: the power flow through openings 

between cavities. Estimates of each opening's resistance to power flow are made in a 
very rough manner. Regardless of the opening's actual geometry, the conductance is 
estimated to be that of a baffled plane piston with the area of the opening. The 
estimate is "order of magnitude" at best. The larger the characteristic opening 
dimension to acoustic wavelength ratio (in the frequency band of interest), the better 
the estimate. If the openings are small enough to provide significant resistance to the 
flow of acoustic power, the validity of the multiple cavity interior noise estimates must 
be considered extremely suspect. The user can evaluate the significance of the 
resistance by doubling the area of the openings and recalculating the band-averaged 
pressure in each cavity. Large changes in the results will indicate significant resistance 
to power flow by the openings. 

The intercavity conductance estimates must control only the pressure differential 
between the subvolumes, not the overall multiple cavity average level. Cavity 
absoprtion, the location and characteristics of transmission surfaces, and the external 
pressure field descriptions are factors that must dominate the overall multiple cavity 
results as they do the single cavity results. Unfortunately, an adequate multiple cavity 
test case could not be found in the literature for use in the evaluation of the intercavity 
pressure differential estimation capabilities of the model. The few experiments with 
multiple cavity measurements involved too many unknown variables for conclusive 
model verification. Given the frequency range of interest and the "opening signifi- 
cance" restriction above, however, the assumption that the relative opening areas 
between the subvolumes control the differential pressure can be considered strong in 
relation to other model assumptions. 


Section 6 


VIN USER'S MANUAL 

This program will aid in the analysis of Vehicle Interior Noise (VIN) problems. Both 
modal and statistical energy analysis techniques are available to the user in a very 
generalized form. An overview of the steps required to use the program is given below. 
Each item will be fully described in turn. 

VIN USER’S PROCEDURE 

1. Review modal analysis method used in VIN. 

2. Review statistical energy analysis method used in VIN 

3. Graphically define geometry of the problem 

4. Partition the volume into subvolumes and define openings 

5. Idealize the structure for modeling 

6. Number surface and volume elements and assign nodes 

7. Update program library of elements 

8. Estimate the structural damping and acoustic absorption 

9. Define the external excitation on each surface and update program library 
of correlation fields 

10. Prepare input data file 

11. Prepare executive commands 

12. Run program 

6.1 Review Modal Analysis Method Used in YIN 

The vehicle interior noise problem can be modeled by a set of coupled differential 

equations, one describing the structural response of the vehicle walls to excitation and 

( 2 ) 

the other representing the vehicle interior acoustics. ' The structure is modeled by 
standard linear Lagrangian relationships with differential pressure across the structural 
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walls as the driving force (point force input is also allowed). The acoustic model is 
based on Green’s theorem in conjunction with small perturbation acoustical relation- 
ships. Using normal mode mathematical techniques, the set of equations are 

Acoustics 
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These equations can be solved in the time domain or fourier transformed and solved in 
the frequency domain for P n (t) or P n (&>) respectively, 


where 


A = Surface area of vehicle structure 

C = Structural viscous damping factor 
c = Speed of sound in air 


nr 


J A / 1/Z a F n (x o )dA 


W ■ 


nm 
M a = 


M m = 
m 

p e (x 0 , t) = 
p„(t) = 


Acoustic hard wall mode shape 

/ J*<Am^ x o F n (x Q )dA " stI> uctural/acoustic modal coupling f actor 
A 

Generalized acoustic mass of vehicle interior 
Generalized mass of vehicle structure 
External blocked pressure 

n u mode generalized pressure inside vehicle cavity at time, t 
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q_(t) 

m 




a 

P 


V*o> 


CJ 


m 


m** 1 mode generalized displacement of vehicle structure 

/ p e (x , t) t/f (x)dA - generalized external force on structure 
A 

Volume of vehicle cavity 

Normal acoustic absorption coefficient for surface 
Density of air 

Structural in vacuo mode shape 
Structural in vacuo natural frequency 


With P n M, the vehicle interior noise level can be calculated in any of the following 
forms: 

Discrete frequency pressure squared at a point of specific interest 


p (x q ,6>) = 


ZA V 1 


Pj2 

2 


n 


L-i 

n' 


w w 

M n M n' 


P n (o>) P*,(w) 


Ban d -limited pressure squared at a point of specific interest : 

<p 2 <v«>>„ = WEE WW y 2 

0 « n n' M a M a , J n n 

n n' co. 


Band-limited, space-averaged pressure squared : 


co 2 

<(p 2 (x ,a)\ = P 2 c 4 y. \ f Pto)P*(«)dM 

0 2 n M* J n " 


n 


Random external pressure fields are handled by taking the expected value of the above 
equations. Because of difficulties in obtaining the expected value of P n (<u) P*,(o>), VIN 
will calculate only the band-averaged, space-averaged pressure when given a random 
external excitation. 
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Careful examination of these fundamental equations will show that the user must supply 
four types of information: 

1. Vehicle geometry 

2. Structural in vacuo response characteristics 

3. Acoustic hard wall response characteristics and surface absorption 

4. External excitation on vehicle structure 


Often the geometry of the vehicle is so complex that the internal acoustic response 
characteristics are not known. VIN has a powerful acoustic component mode synthesis 
capability that calculates the acoustic response characteristics of a complex cavity 
shape from the known modal response of several simple shapes arranged to approximate 
that complex shape. 


Calculation techniques based on two-dimensional fourier transforms were implemented 
in VIN to allow the use of finite element or experimental modal response data for the 
structure. Two simplifying assumptions, which significantly reduce the computation 
effort involved in this modal analysis technique, can usually be made without significant 
loss of accuracy. First, assume the acoustic natural frequencies are not significantly 
altered by the wall impedance (C nr = 0 when n t r). Second, assume the internal 
acoustics do not significantly alter the structural natural frequencies, 


Z 


P n<t> 


nm 



0 


in the structural equation. VIN implements both of these assumptions to achieve 
significant reductions in computation time. An approximate technique is used to 
account for the retransmission of sound (loss of energy from inside to outside). 

6.2 Review Statistical Energy Analysis Method Used in VIN 

Statistical Energy Analysis (SEA) is a method of approaching vibrational problems using 
energy as the independent variable along with the time-honored assertion 


Energy In = Energy Out 



* •.* 'as. 


From this rather firm foundation, a series of assumptions, which form the essence of 
the approach, are made. These assumptions can be fairly rigorously stated as 
follows:^ 

1. The total vibrating system can be partitioned into SEA elements (with 
suitable boundary conditions) whose modes approximate the modes of the 
original vibrating system. 

2. The energy in one frequency band of a system element is equally distributed 
among the modes of that element occurring in the frequency band. 

3. The modes of the elements of a system contain all the vibratory energy of 
the system. 

4. Only modes occurring within the same frequency band are coupled. 

5. For two coupled elements, all the modes occurring in one of the elements in 
one frequency band are equally coupled to each mode occurring in the same 
frequency band in the other element. 

Modal analysis, as described in section 6.1, is used in VIN to calculate the interior 
pressure in the lower frequency bands of interest. When there are sufficient acoustic 
modes occurring in a frequency band to make the SEA assumptions valid, VIN (or the 
user) can switch to the statistical energy method of calculating the response. The 
particular SEA formulation implemented in VIN is a modification of that found in 
reference 3. It allows the user to describe a system consisting of several interconnect- 
ing cavities, each with structural walls that can be exposed to external excitation. 
Power is allowed to flow through the structural walls to and from the external 
environment and through the openings connecting the cavities. Power is dissipated 
through structural damping and acoustic absorption. The power balance equation: 
Power In = Power Out 

|wf = [C]|p 2 } 

| W } is the input power matrix 

W(k) = 23 W(k, j), where j is a surface adjacent to volume k 

j 

[c] is the square coefficient matrix representing the output power from 
each subcavity 
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and 


where 


C(k, k) = C a (k, k) + £c.(k, k) + £ C, (k, k) 

i 1 £ 1 

C(k, i) = £ c t i) 

i 

{ p^} is the band-limited mean square internal pressure in each cavity 
C a (k, k) - power absorbed by the walls of each cavity 

Cj(k, k) - power reradiated through the transmitting walls of the cavity to 
the outside environment 

C(k, i) - power transferred to other subvolumes through openings connecting 
the cavities 

W(k) = ^ W(k, j) where surface j is adjacent to volume k 

j 




J j 


density of fluid in cavity 
speed of sound in fluid 

space-averaged, band-limited mean square blocked pressure 
on the structure 

area of surface 
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called the joint acceptance. 

cross power spectral density of the external blocked surface 
pressure at frequency, oj. 

joint acceptance of the internal reverberant field with the 
structure. 

structural mode shape. 

number of structural modes in band b. 

number of structural modes in band r. 

frequency band width. 

center frequency of the band of interest. 

structural damping loss factor. 

average generalized mass of the structure in band b. 

average generalized mass of the structure in band r, the band 
of interest. 

structural receptance squared, averaged over band b. 


expanding on the output power matrix: 

C(k, k) = C a (k, k) + £ C.(k, kj + £ C.(k, k) 

j 1 l 1 

C(k, i) - £ C 0 (k, i) 

l £ 

C a (k, k) = ooc '' 2. a i surface j adjacent to volume k 

j J j 



With surface j adjacent to k 


C £ (k, k) = 


ZL 

4pc 
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vl + x P 


CAk,i) = j— 


'l 

where 


n 


4PC (d £ +x P 


a. = normal surface absorption of surface j 

J 

Aj, Ag = area of surface j and £ respectively 
dg, Xg = opening correlation factors 


Careful examination of the SEA equations will show that the user must supply four 
types of information: 

1. Vehicle geometry 

2. Structural high frequency response characteristics 

3. Surface absorption of acoustic energy 

4. External excitation description 


6.3 Graphically Define Geometry of the Problem 

Prepare a clear and uncluttered isometric or three view plan drawing of the vehicle. 
The scaled drawing should show the outline of the vehicle's cavities and not the 
structural details of the vehicle's walls. A rectangular, global coordinate system should 
be established on the drawing. 

6.4 Partition the Volume Into Subvolumes and Define Openings 

Often the internal geometry of a problem is so complex that the acoustic modal 
response characteristics are not known. With VIN's acoustic component mode synthesis 
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capability, the user can calculate the modal response characteristics of the complex 
cavity. The interior of the vehicle, or the cavity, must be partitioned or further 
idealized as several simple shapes with known hard wall acoustic modes connected 
together to approximate the more complex shape. The connection between the 
subcavities are termed openings. The mode shapes of each opening must also be known. 
The response characteristics of each subvolume and opening is held in the program's 
library of elements, which is fully described later. 

VIN can calculate the space-averaged pressure squared over each subvolume. This 
provides valuable information on the special distribution of the acoustic pressure in the 
vehicle. 

When the acoustic modal density is greater than 6 or 7 modes per one-third octave, the 
response characteristics can be considered reverberant and therefore independent of 
cavity shape. When this is the ease, statistical energy analysis can be used. The 
subvolumes are retained for the statistical energy analysis and are termed acoustic SEA 
elements with reverberant response characteristics. In this way, the spatial distribution 
of the acoustic pressure can also be estimated in the high frequency regime since the 
average pressure in each subvolume is calculated. 

6.5 idealize the Structure for Modeling 

The primary concern in the development of the drawing has been the representation of 
the vehicle's interior acoustic geometry. In this step, the structural elements are 
identified and related to the subvolumes of the problem defined in section 6.4. The 
idealized structure will consist of transmission surfaces and absorption surfaces. These 
surfaces must lie on or within the bounds of the subvolumes that idealize the acoustic 
geometry. It is preferable for the idealized structures to lie on the bounds of the 
subvolume, but some approximation is allowed. Transmission surfaces are surfaces that 
may vibrate and transmit acoustic energy into the subvolumes. Absorption surfaces are 
surfaces that may absorb acoustic energy but are assumed to be rigid. The drawing 
should be modified so that it consists only of surface and subvolume elements that are 
in the program's element library. 

The motion of each portion of the vehicle's structure is dependent, to some degree, on 
the motion of all other parts of the vehicle. In essence, the vehicle has only one 
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transmission surface. In many cases, however, sections of the vehicle structure are 
well insulated from each other by rigid or relatively massive boundaries, and the 
structures respond somewhat independently from each other. Each structural wall of 
the vehicle whose motion can be independently described is termed a "master surface." 
The user is required to define the structural response characteristics of each master 
surface. The details of how this is accomplished is described in later sections. 

Any master surface that extends over two or more subvolumes must be partitioned into 
subsurfaces, one for each subvolume that is bounded by that particular master surface. 
This is required because of the calculation techniques used in VIN. The response 
characteristics of each subsurface is calculated by VIN from the master surface data 
supplied by the user. Each subsurface can be assigned different acoustic absorption 
characteristics. 

The master surface declaration can be used in conjunction with the definition of the 
master surface response characteristics to build a model of the structure that is valid 
over a larger range of frequencies. Consider, for example, a frame-stiffened structure. 
At low frequencies, the structure has modal characteristics that span its whole length. 
At higher frequencies, however, the panels bounded by the frames may vibrate 
somewhat independently. To represent this behavior, the user may define one master 
surface that describes the low frequency modes and several other surfaces to represent 
the higher frequency behavior. All that is required of the user to implement this double 
description of a structure is to simply doubly describe the structure and make sure the 
response characteristics assigned to each do not overlap in the frequency domain. 

An absorption surface should be defined so that no portion of the surface bounds more 
than one subvolume. A subvolume may have as many absorption surfaces as the 
geometry requires. Since the acoustic independence of each absorption surface must be 
constant, multiple absorption surfaces can be used to model acoustic impedance 
variations over a wall. At this point, the isometric drawing should consist only of 
surface and volume elements that are resident in the program’s element library. 

6.6 Number Surface and Volume Elements and Assign Nodes 

With the isometric drawing now consisting only of surface and subvolume elements with 
known response characteristics, preparations must be made for communication of this 


geometry to the program. First, starting at one end of the vehicle and working to the 
other, number each subvolume. Second, number all the openings. Third, starting with 
1, number all the master transmission surfaces in the same orderly manner. Third, 
continue the surface tally by numbering the transmission subsurfaces. Fourth, continue 
the surface tally by numbering the absorption surfaces. The total number of surfaces 
counted are 

NS = NMS + NSS + NAS 

NS = number of surfaces 
NMS = number of master transmission surfaces 
NSS = number of transmission subsurfaces 
NAS = number of absorption surfaces 

The geometry of each of the surface, volume, and opening elements is communicated to 
the program by a method similar to that used in large finite element programs. Each 
element (master transmission surface, transmission subsurface, absorption surface, 
subvolume and opening) is identified by type. A certain number of "nodes," or position 
points, are associated with each element type. Documentation for the program 
libraries defines where the nodes should be located on each element type. The nodes 
associated with each element type should be clearly marked and numbered on the 
isometric drawing. A node can and should be used, if possible, in the definition of more 
than one element. The nodes associated with each element type define the orientation 
of the element's geometry with respect to its own local rectangular coordinate system 
and the global coordinate system of the problem as a whole. The nodes also provide the 
limits for surface integration purposes. A minimum of three nodes are required to 
define an element type. The first node fixes the location of the origin of the element's 
coordinate system in the global coordinate space. The second and third nodes also 
provide limits for surface integration purposes in many of the element types. Any 
additional nodes provide the reference points required to fully define the element 
geometry. The maximum number of nodes needed is solely a function of element type. 

The description of the element geometry is completed by the analytical information 
held in SGEOM, which calculates 

Z = f(x, y) 
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Z = f(x, y) is equation of the surface 

is the partial derivative of z with respect to x 
dz 

— is the partial derivative of z with respect to y 
This information is required for accurate surface integration. 

Elements are differentiated by response characteristics and not geometry. For 
example, a rectangular panel with ribs may be in the library as element 5, while a 
simple rectangular panel without ribs is element 2. 

6.7 Update Program Library of Elements 


The geometry and modal response characteristics of all the elements used in the 
drawing completed according to the directions of section 6.6 must be known. The 
program library contains some commonly used structural and acoustic elements. The 
library was not intended, however, to be static. Rather, the library provides a simple 
and structured means for the user to add geometry and response information for the 
user's particular problems as they arise. If library elements, from past problems, fit the 
present problem, then they may be used. This source code held library has the following 
organization: 

Program Library of Elements 


Program library of modal elements 

I. Volume elements 

II. Opening elements 

III. Analytic volume/opening coupling, L r 

IV. Structural elements 

Program library of SEA elements 



In addition to the program libraries held in the source code, VIN provides an orderly 
method of maintaining data files of structural and acoustic response characteristics and 
program-calculated parameters associated with specific structures and volumes. The 
data file capability significantly reduces the computational effort associated with 
design studies where the effect of various parameter changes are investigated. 
Essentially all cogent information is placed in mass storage so that it can be retrieved 
in total or in part for use in a similar problem. (That is, a slightly changed structure, 
increased damping, or adding a wall in the acoustic space constitutes a new problem but 
does not invalidate many of the parameters calculated previously.) 

Data File 

A. System specific parameters 

B. Structural surface specific parameters 

6.7.1 Program Library of Modal Elements 

Surface integrations involving structural and acoustic mode shapes are the heart of the 
modal analysis equations. The program library of modal elements provides for the 
calculation of these surface integrals. The modal information can be held in the library 
in several different forms. All mode shape definitions are given in the particular 
element's coordinate system. Recall that the complex cavity mode shapes are 
represented by a series of coefficients multiplied times the hardwall acoustic mode 
shape of the cavity's subvolumes: 



where 

F n ,( x 0 ) = mode shape of the n' mode of the multiple cavity system 
P n (n',v) = influence coefficient of n' cavity mode for subvolume v 
F^(x ) = hardwall acoustic mode shape of subvolume v 

no xr 

The volume or acoustic modal element descriptions provides the hardwall acoustic mode 
shapes, F^(x q ). 

The opening modal elements are needed for acoustic component mode synthesis. 
Acoustic omponent mode synthesis requires the calculation of coupling facors, L nm , 
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between the subvolumes of the cavity and the openings that connect the subvolumes. 
Recall that 

L nm ~ 1/fA f F n^ x o^ dA 
where A 

(// m (x Q ) = opening mode shape 

F (x ) = hardwall subvolume acoustic mode shape 
no . 

A = area of opening 

Provision is made in the component mode synthesis portion of the program code for 
analytic calculation of the opening/subvolume L nm > If analytic calculation is not 
possible, then the integration is carried out by gaussian quadrature. 

Structural mode shapes can be in analytical or double sine series form. The double sine 
series can represent structural mode shapes from extensive analytical techniques, finite 
element analysis, and/or experiment. 

Examine the documentation for the program library of modal elements in appendix A. 
The volume elements now held in the program code are 

1. Rectangular parallopiped 

2. Circular cylinder with closed ends 

3. Concentric circular cylinder with closed ends 

The opening elements now held in the program code are 

1. Rectangle 

2. Circle 

3. Concentric circular annulous 

The volume/opening analytic coupling L> nm are 

1. Rectangle /parallopiped 

2. Circle/circular cylinder 

3. Concentric circular annulous/circular cylinder 

4. Concentric circular annulous/concentric circular cylinder annulous 


The structural elements held in the program code are 

1. Rectangular surface shape with Fourier series mode descriptions 

2. Thin, orthotropic, rectangular panel with simply supported edges 

3. Circular surface shape with Fourier series mode descriptions 

4. Thin, homogeneous, circular panel with fixed edges 

5. Frame-stiffened, orthotropic whole-shell segment with shear end conditions 
at cylinder ends 

6. Frame-stiffened, orthotropic shell segment with shear end conditions at all 
boundries. 

7. BBN finite element mode shape description method. 

8. Thin, orthotropic rectangular panel with clamped edges. 

Additional element types can be added to the library as required. The following 
instructions describe how an update is made. 

The documentation for the new elements should be fully prepared before any additions 
to the source code are made. Acoustic modal element documentation should follow the 
pattern. 

a. Element number assignment and description 

b. Drawing of the element, including locations of the element nodes 

c. Natural frequency equations 

d. Mode shape equations 

e. Summary program variables associated with volume elements 
a. Element number assignment 

The element is accessed via its unique element number. The description is for 
comments in the program code and for titles in the documentation. 


b. Drawing of the element, including locations of the element nodes 

The element geometry is depicted on a rectangular coordinate system in a manner 
most conducive to defining the shape with the least number of nodes. The nodes are 
located such that 

Node 1 - at the origin of the coordinate axis 
Node 2 - on the positive x-axis 
Node 3 - on the positive y-axis 
Node 4 - on the positive z-axis 

Additional nodes may be assigned as required to supply the needed dimensions in the 
natural frequency and mode shape equations. 

c. Natural frequency equations 

Using basic acoustic constants and the dimensions supplied by part two, provide an 
equation for the calculation of the hardwall acoustic natural frequency as a function of 
mode number (modal index). 

d. Mode shape equations 

Using the dimensions supplied in part two, provide an equation for the calculation 
of the hardwall acoustic mode shape as a function of position and mode number. The 
mode shapes must be normalized such that 

M n * n (x o )dV * l '° 

e. Summary of program variables associated with volume element descriptions 

The program Variables to be used in the volume element descriptions are 
summarized in part e. 

Opening modal element and analytic L nm documentation should follow the pattern: 

a. Element number assignment and description 

b. Drawing of the element, including location of the element nodes 
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c. Mode shape equations 

d. Summary of program variables associated with opening element descriptions 

a. Element number assignment and description 

The opening element is accessed via its unique opening element number. The 
description is used in organizational comments in the program code and for titles in the 
documentation. 

b. Drawing of the element, including location of the element nodes 

The opening element geometry is depicted on a rectangular coordinate system in a 
manner conducive to defining the shape with the least number of nodes. The nodes are 
located such that 

Node 1 - at the origin of the coordinate axis 

Node 2 - on the positive x-axis at the furtherest extent of the element in the 
x-direction 

Node 3 - on the positive y-axis at the furtherest extent of the element in the 
y-direction 

Additional nodes may be assigned as required to supply the needed dimensions in 
the mode shape equations. 

c. Mode shape equations 

Using the dimensions supplied in part II, provide an equation for the calculation of 
the opening mode shapes. The opening types have certain ’’allowed frequency" constant 
that also affect the mode shape. Equations for calculating these values as a function of 
modal index numbers must also be provided. 

d. Summary of program variables associated with opening element description 

The program variables to be used in the opening element descriptions are 
summarized. 

Structural modal element documentation should follow the pattern: 

a. Element number assignment and description 

b. Drawing of the element, including location of the element nodes 


c. Surface equations 

d. Natural frequency equations and structural constants 

e. Mode shape equations 

f. Summary of program variables associated with structural element 

a. Element number assignment and description 

The element is accessed via its unique element number. The description is for 
organizational comments in the program code and for titles in the documentation. 

b. Drawing of the element, including location of the element nodes 

The element geometry is depicted on a rectangular coordinate system in a 
manner conducive to defining the shape with the least number of nodes. The structural 
element may be three-dimensional as long as it is single valued in the z-direction 
(component coordinate system). The nodes are located such that 

Node 1 - at origin of the coordinate axis 

Node 2 - on the positive x-axis at the furtherest extent of the element's 
projection in the x-direction 

Node 3 - on the positve y-axis at the furtherest extent of the element's projection 
in the y-direction 

Additional nodes may be assigned as required to supply the needed dimensions in 
the natural frequency and mode shape equations. 

c. Surface equations 

An equation of the surface is established as a function of the component x and y 
positions: z = f(x,y). As described in section 6.6, a correction factor for the surface 
shape must also be supplied for surface integration: 



Note that if z = constant, G(x,y) = 1.0. The jacobian of the coordinate system of 
integration must also be provided. 


d. Natural frequency equations and structural constants 


Supply the structural constants and the equation needed to calculate the struc- 
tural element's natural frequencies. Alternatively, the natural frequencies can be 
supplied as data by the user. If this is done, the mode shapes must also be given by 
data, in which case the structural element description held in the program code reduces 
to a simple description of the surface geometry for integration purposes. 

e. Mode shape equations 

Using the dimensions supplied in part n and the constants supplied in part IV, 
provide an equation for the calculation of the structural mode shapes. Alternatively, 
the mode shapes can be given by data (double sine series) as discussed in part IV above. 

f. Summary of program variables associated with structural element description 

The program variables to be used in the structural element descriptions are 
summarized. 

The mode shape data can be supplied directly in double sine series form or as raw data 
in the NASTRAN output format. The program converts the Nastran output formatted 
data to double sine series form. All mode shapes will be normalized such that 

M m * 1/A 

Once the documentation is completed, the information must be added to the program 
source code. The fully commented code (appendix D) in combination with the 
documentation for the program library of modal elements (appendix A) clearly 
demonstrates how the volume, opening, and structural elements are to be added to the 
code. 

6.7.2 Update Program Library of SEA Element Types 

The geometry of the problem, as defined by the isometric drawing completed in section 
6.6, remains valid throughout all program computations regardless of the computation 
method — modal analysis or SEA. The equations for the structural mode shapes and 
natural frequencies given for the master surfaces in section 6.7.1 may not, however, be 


// 


m (x )d s = 1.0 
mo 
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suitable to reflect the statistical emphasis needed in the higher frequencies for good 
SEA estimates. Consequently, VIN holds a library of structural SEA descriptions that 
may be assigned to any of the master surfaces. Appendix B documents the SEA 
descriptions presently in the library and the parameters associated with them. The 
acoustic SEA elements are assumed to exhibit the well-known reverberant field 
characteristics and hence are shape independent. 

Examine the documentation for the program library of SEA descriptions in appendix B. 
The SEA descriptions now held in the program code are 

1. Equivalent rectangular panel with end conditions ranging from simply 
supported to clamped. 

2. Equivalent orthotropic whole shell with shear diaphram end conditions. 

3. Direct data: RJA, RJARV, MD. 

Additional SEA descriptions can be added to the library as required. The following 
defines the procedure for making an update. 

The documentation for the new elements should be fully prepared before any additions 
to the source code are made. SEA documentation should follow the pattern: 

a. SEA description number assignment 

b. Modal density equations 

c. Joint acceptance equations 

d. Summary of program variables associated with SEA element description. 

a. SEA description number assignment 

The SEA response description is accessed via its unique SEA response description 
number. 

b. Modal density equations 

Supply the equations needed to calculate the modal density of the element as a 
function of frequency. Frequency dependent constants can be defined and held in the 
"SEA constants'" array, WMH (NSEAC, NTOB), where NSEAC is the number of SEA 


constants and NTOB is the number of frequency bands. These and/or additional 
constants are also used in part 4. 

c. Typical joint acceptance definition 

The joint acceptance may be calculated either directly by user-supplied, semi- 
empirical equations or by the program's analytical integration of equivalent mode shape 
descriptions. Frequency dependent parameters required by the selected method may be 
held in the array WMH as discussed previously. Either or both methods may be used in a 
single problem. 

d. Summary of program variables associated with SEA descriptions 

Once the documentation is complete, the information must be added to the 
program source code. The fully commented code (appendix D) in combination with the 
documentation for the program library of SEA elements (appendix B) clearly demon- 
strates how the SEA elements are to be added to the code. 

6.7.3 Organization and Use of Data File 

All cogent information for any problem solved by VIN can be stored in a data file so 
that the information may be retrieved in total or in part for use in a similar problem. 
The data file holds two types of information: system specific and structural surface 
specific parameters. The system specific parameters are stored in files L1-L6. These 
described the geometry, acoustics, and acoustic dependent parameters of the problem. 
The structural surface specific parameters are stored in files L7-L10. These describe 
the dynamics of structural elements, including generalized force as specified for that 
surface. Mass storage files L16-L18 are sometimes required for short-term storage of 
intermediate calculations and are not a part of the permanent data file. 

Each problem stored receives a unique problem number. Each structural surface 
element stored receives a unique "stored" structural element number. File LO contains 
an index of the stored data. The index is printed whenever prestored data is used. The 
output of file LO provides the following information: 
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Data Set 


Contents 


Data Set 
2 


NTAPE - Reference number for control card addressing 
NFV - Problems 
NFS - Master surfaces 
NPFCT - Pressure field constants 
NTOBT - Frequency bands 

NVT - Volumes in multiple cavity system 
NST - Surfaces in multiple surface system 
MXVT - Volume element nodes 
MXST - Surface element nodes 
NAMT - Acoustic modes 
NSMT - Structural modes 
MXT - Fourier series m-direction limit 
NXT - Fourier series n-direction limit 
NAMMCT - Important acoustic modes 
NSEACT - SEA constants 

NPA - Actual number of problems now on data set 
NSA - Actual number of surfaces now on data set 

Contents 

Problem 

NN - Nodes 
NS - Surfaces 
NMS - Master surfaces 
MNSS - Subsurfaces 
NAS - Absorption surfaces 
MXS - Surface nodes 
NSMX - Structural modes 
NSC - Structural constants (modal analysis) 

NV - Volumes 
NXV - Volume nodes 
NAM - Volume modes 
NTOB - Frequency bands 
MFE - Surfaces with finite element descriptions 


MX - Fourier series terms in x-direction 
NX - Fourier series terms in y-direction 
NSEAC - SEA constants 
NPFC - Pressure field constants 
NWS - Discrete frequency steps over frequency range 
NOO - Openings 

LBAND - Lowest band of interest: Modal analysis 
MBAND - Transition band: End modal analysis; begin SEA analysis 
IHBAND - Highest band of interest 
RO - Density of fluid in volume 
CO - Speed of sound of fluid in volume 
VOL - Volume of multiple cavity system 
PREF - Reference pressure 
ZERO - Value considered zero 

EPS - Fraction of peak modal contribution considered negligible 
BW - Bandwidth 

A set of these parameters is given for each problem stored on the data tape. 

Data Set Contents 

Structural Element 
3 ISTYP - Surface type 

NM - Modes of structure 
NSC - Structural modal constants 
IPF - Pressure field type 
LBAND - Low band 
MBAND - Transition band 
IHBAND - High band 
NSEAC - SEA constants 
ISEAO - SEA structural type 

A set of this data is held for each structural type on the data tape. 

Random access storage parameters: 

MNR = 1 + 10 + 20 (maximum number of records) 

MRS = 20 (maximum record size) 



IR = 1 for tape parameters 

= 1 + NPROB for problem parameters 
= 1 + 10 + ISUR for structural parameters 

Note that this first file is sized with constants so that it may be read without prior 
knowledge of the value of the parameters on the file. 


File LI: Problem Geometry 


Data Set (NDS) 

1 VNODC(MXV,3,NV) - Volume mode locations (in subvolume coordinate 

system) 

VTM(3,3,NV) - Transformation matrix for global-to-volume 
system 

VORG(3,NV) - Origin offset: Volume-to-global coordinate system 
IVTYP(NV) - Volume type 
ONODC(MXS,3,NOO) - Opening node locations 

OTM(3,3,NOO) - Transformation matrix for opening to global 
system 

OORG(3,NOO) - Origin offset: Opening to global coordinate system 
IOTYP(NOO) - Opening type 

SNODC(MXS,3,NS) - Surface node locations (in surface coordinate 

system) 

STM(3,3,NS) - Transformation matrix, for global-to-volume 
system 

SORGO, NS) - Origin offset: Surface-to-global coordinate system 
ISTYP(NS) - Surface type: Modal analysis 
V(NV) - Volume of subvolumes 
AREAO(NOO) - Area of openings 
AREA(NS) - Area of surfaces 
IGEMOV(2,NOO) - Opening/subvolume relationships 
ISV(NS) - Surface/subvolume relationships 
MASSUR(NMS,MNSS) - Master surface/subsurface relationships 
NSDAT(NS) - Data tape surface identification 
CENTF(NTOB) - Center frequencies of frequency range of interest 
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IFE(NMS) - Surface with finite element description 
identification 

ISEAO(NMS) - Surface type: SEA 
GNODE(NN,3) - Global node points 
IOCM(MXS,NOO) - Opening nodes 
ISURCM(MXS,NS) - Surface nodes 
IVOLCM(MXV,NV) - Volume nodes 
BNDWN(NTOBT,2) - Acoustic band of importance 


Random access storage parameters: 

MNR = NFV; maximum records in file 
MRS = Total size of arrays above; maximum record size 
IR = NPROB; mass storage record access number 


File L2 - Subvolume Natural Frequencies and Acoustic Mode Shape 
Integration Over Each Surface 


Data Set (NDS) 

1 WN(4,NAM,NV) - Natural frequency and mode shape index of 

subvolumes 

2 CN(NAM,NS) - Integral of whole cavity acoustic mode shape over 

each surface 

3 ZNDATA(NTOB,NS) - Surface acoustic absorption 

Random access storage parameters: 

MNR = NFV*3 

MRS = AMAX(NST*NAMT, 4*NAMT*NVT) 

IR = (NDS-l)*NFV+NPROB 

Acoustic Modal Response 


Multiple cavity system's acoustic natural 
frequencies 

Generalized mass of each acoustic mode 
Cavity acoustic damping 


Data Set (NDS) 
1 

2 

3 


File L3: 

WNMC(NAM) - 

VMNPA(NAM) - 
ZANN(NAM) - 
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Random access parameters: 

MNR = NFV*3 
MRS = NAMT 
IR = NPROB+(NDS-l)*NFV 

File L4: Portion of Cavity Generalized Mass in Each Subvolume 
Data Set (NDS) 

1 RMN(NAMT,NVT) - Portion of cavity generalized mass in each 

subvolume 

Random access storage parameter: 

MNR = NFV 
MRS = NVT*NAMT 
IR = (NPROB) 

File L5: Acoustic Component Mode Synthesis Constants of Constraint 
Data Set (NDS) 

1 PNMC(NAMMC) - Constants of constraint 

Random access storage parameters: 

MNR = NAMT*NVT*NFV 
NRS = NAMMCT 

IR = (NPROB-l)*NAMT*NVT+(NVOL-l)*NAMT+NWN 
File L6: Modal Selection for Constants of Constraint 

Data Set (NDS) 

1 INDPN(NAM) - Indicates which subvolume acoustic modes are 

important in the calculation of the whole cavity 
modes 

Random access storage parameters: 

MNR = NVT*NFV 
MRS - NAMT 

IR = (NPROB-l)*NVT+NVOL 
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File L7: Structural/ Acoustic Coupling Coefficient 

Data Set (NDS) 

1 VLNM(NAMT) - Structural/acoustic coupling coefficient 

Random access storage parameters: 

MNR = NSMT*NST 
MRS = NAMT 

IR = (ISUR-l)*NSMT+MWM+NSMT*NST*(NPROBN-l) 

The structure specific parameters held in files L8 through L15 are briefly described in 
the following data file summary. 


File L8: Miscellaneous Structural Constants 

Data Set (NDS) 

1 NM,ISTYP,AREA - Number of modes, structure type, structure area 

2 SC(NSC) - Structural constants for modal analysis 

3 ZMDATA(NTOB) - Structural damping in each band of interest 

4 SPL(NTOB) - Exterior sound pressure level on structure for each 

band of interest 


Random access storage parameters: 

MNR = 4*NFS 
MRS = NTOBT 

IR = (NDS-1)*NFS+NSDAT(ISUR) 

File L9: Structural Modal Data 

Data Set (NDS) 

1 WM(3,NSMT) - Structural modes and modal indexes 

2 ZM(NSMT) - Structural modal damping (C/C c ) 

Random access storage parameters: 

MNR = NFS*2 
MRS = 4*NSMT 


'l 
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File 10: Generalized Force: Modal Analysis 


RJA(NTOBT) - Joint acceptance or generalized force of each 
structural mode for the given external pressure 
field 

Random access storage parameters: 

MNR = NFS*NSMT 
MRS = NTOBT 

IR = (NSDAT(ISUR)-1)*NSMT+MWM 
File Lll: (Blank and not assigned) 

File L12: Structure Modal Description 

Data Set (NDS) 

1 BPQ(MXT,NXT,NSMT) - Coefficients to double Fourier series description of 

mode shape 

Random access storage parameters: 

MNR = NFS 

MRS = MXT*NXT*NSMT 
IR = NSDAT(ISUR) 

File L13: Structure SEA Response Description 

DataSet (NDS) 

1 WMH(NSEAC,NTOB) - Structural SEA parameters for each frequency 

band of interest 

Random access storage parameters: 

MNR = NNFS 
MRS = NSEACT*NTOBT 
IR = NSDAT(ISUR) 


Data Set (NDS) 
1 


File L14; Structure SEA Joint Acceptance and Modal Density 


Data Set (NDS) 

1 RJA(NTOB) - Joint acceptance of modes in band (given external 

field) 

2 RJARV(NTOB) - Joint acceptance of modes in band (reverberant 

pressure field) 

3 MD(NTOB) - Modal density 

Random access storage parameters: 

MNR = 3*NFS 
MRS = NTOBT*2 

IR = (NDS-1)*NFS+NSDAT(ISUR) 


Data Set 
1 


File L15: Bandwidth of Importance 


BNDWM(NTOB,2) 

Mass storage parameters: 
MNR = NFS 
MRS = NTOB*2 
IR = NSTOR(IS) 


The following three files are used for short-term storage of intermediate program 
calculated parameters. The files are not part of the permanent data set. 

L16: EIMTX 

1 EIMTX(NOO,NOM) - Constraint constants at the openings 

MNR = NAM 
MRS = NOO*NOM 
IR = NWN 

L17: VLNM 

1 VLNM(NAM,NMO) - LNM for openings and volumes in acoustic compo- 

nent mode synthesis 
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MNR = NOO*2 
MRS = NAM*NMO 

where 

IF(IGEM0V(1,IN0).EQ.NV0L)INV = 1 
IF(IGEM0V(2,IN0).EQ.NV0L)INV = 2 

IR = (INV-1)*N00+IN0 

File L18 


NFES,NSM 

((I,D1(I),D2(I),D2(I)),I=1,NFES), 

((I,VM(I)),I=1,NFES), 

(tt,WMd),(((SN(K,J,I),I=l,NSM),K=l,NFEN),J=l,3) 

NFES - FE nodes in the data set 
NSM - FE modes in the data set 
D1 * x-coordinate in FE system of F.E. node 
D2 - y-coordinate 
D3 - z-coordinate 
VM - Elemental mass at each node 
WM - Natural frequencies 

SN - Array of mode shapes, three translational degrees 
of freedom 

Mass storage file parameters: 

MRS = 6 * MFE+2 *NSMT+NSMT*3 * MFE 
MNR = NFEDS 
IR = IF E(IS UR) 

6.8 Estimate the Structural Damping and Acoustic Absorption 

The structural damping and normal acoustic impedance must be estimated for the 
entire frequency range of interest for each master surface of the structure. The 
prediction accuracy of the program is usually affected more by estimates of these 
parameters than by any other single aspect of the modeling exercise. Because of the 
uncertainties usually associated with these factors, the user is advised to arrive at the 


Data Set (NDS) 
1 


where 
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answer to important problems based on a sensitivity analysis with damping and surface 
absorption as the variables. Such a sensitivity analysis would be less costly than it 
seems since VIN can save the results of the program's most time-consuming calculations 
for reuse in repeated runs of the same general problem. 

6.9 Define External Acoustic Fields 

The external acoustic field over each master surface must be specified. The program 
library of external pressure fields contains normalized descriptions of the most 
commonly encountered pressure fields. Each pressure field type is assigned a unique 
pressure field reference number. The program library of external pressure fields may 
be updated. The documentation follows the pattern: 

a. Pressure field number assignment and description 

b. Surface pressure field correlation equations 

1. Random: frequency domain 

2. Deterministic: frequency domain 

c. Generalized force calculations 

a. Pressure field number assignment and description 

Each pressure field description is accessed via its unique element number. The 
description is for comments in the program code and for titles in the documentation. 

b. Surface pressure field correlation equations 

A pressure field is descriped in either random-frequency domain or deterministic- 
frequency domain terms. Each description is normalized to a reference pressure at the 
centroid of the surface on which the field is imposed. The description should be in the 
form of an equation. All constants that make the description more versatile are 
identified and allowed to be user-variable inputs to the program. (See documentation 
for program library of external pressure fields.) 
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c. Generalized force calculations 

Since the equations are formulated to calculate the space-averaged pressure 
squared, the generalized force is required in the form of a joint acceptance: 


where 


J 2 M 
mm ' 
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= exterior blocked pressure power spectral density at a reference 
point 

= exterior blocked pressure cross-power spectral density 
= surface area of structure 


While this form is generally used for random external pressure field descriptions, it can 
also be used with deterministic data. 


/B 
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where 


p(x Q , co) = complex pressure at point x Q 
I ^ x ref’ = P ressure squared and reference point, x re ^ 

= s P bi M 

The deterministic field joint acceptance can be more easily obtained by calculating 


Q m M = fp(x 0 , <°) <A m (x 0 )ds 


then 




J* m fe>) = 0 

A s pbl ( “> 

Once the generalized force is calculated in the form of joint acceptance, the remainder 
of the calculations are identical for the deterministic and random formulations. 
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If the surface mode shapes are given in analytical form, the above integrations are 
generally accomplished by Gaussian quadrature; however, analytic solutions are used in 
the program whenever such solutions are available. If the mode shapes are given in 
Fourier series form, analytical solutions are possible for some pressure field types as 
follows: 



mx nx 
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Substitute into the equations 
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Analytic solutions for the bracketed terms are mandated for computational tractability. 
The documentation for the program library of external pressure fields is given in 
appendix C. Point force excitation is among the external pressure, or forcing, fields 
resident in the library. The routine PRMCAL (see appendix D) provides fully 
commented directions on the addition of new pressure field types to the source code. 


6.10 Prepare Input Data File 

At this point, the user should have 

1. Become familiar with the basic analytical techniques of the program. 

2. Prepared isometric scaled drawing consisting only of surface and subvolume 

i elements to be included in the program element libraries. 

p 3. Identified master surface/subsurface relationships. 

\ ■ ■ ' " ■ 


4. Numbered each subvolume and numbered each opening. 




5. Numbered all surfaces in the correct order (master surfaces + subsurfaces + 
absorption surfaces). 

6. Marked the location of the required nodes on each surface and subvolume on 
the isometric drawing and numbered the nodes. 

7. Updated the modal and SEA element libraries and gathered finite element or 
experimental modal response information if required. 

8. Gathered the relevant structural data on each surface, including the 
structural damping and acoustic impedance estimates. 

9. Selected the external field description for each master surface. 


The above information must now be communicated to the program via the Input Data 
File. Each aspect of the Input Data File is described in detail following the summary of 
its contents. Recommendations, based on experience with the program, for user- 
selected parameters are also provided. 


In all the options, weak structural/acoustic coupling is assumed. Each option uses the 
modal analysis method. SEA analysis can be used only with option 1. 


Summary of Input Data File 

Title 

Subtitle 

RG A. Option Selection 

IOP 

(MOP(I),I=l,4) 

(IPRE(I),I=1,4) 

NPROB, NPROBN, MTAPE, NT APE 

RC B. Sizing Parameters for New Data File 

NFV, NFS, NPFCT, NTOBT, NVT, NST, MXVT, MXST, NAMT, NSMT, MXT, NXT, 
NAMMCT, NSEACT 

RC C. Range: Frequency Domain 

LBAND, MBAND, IHBAND, BW 

RG D. Range: Discrete Frequencies 

WI, WF, NWS 

RC E. Tolerances 

ZERO, EPS 
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RC F. Matrix Sizing 

NN, NS, NMS, MASS, NAS, MXS, NSMX, NSC, NV, MXV, NAM, NTOB, MFE, MX, NX, 
NSEAC, NPFC 

RC G. Multiple Cavity Parameters 

NAMMC, NOO, NOM, IOM, NG, DFQY, MI, ER 

RC H. Opening/Volume Relationships 

1, NVOL(TAIL), NVOL(HEAD) 

NOO, NVOL(TAIL), NVOL(HEAD) 

RC I. Opening Description 

1, IOTYP(l), AREAD(l), (IOCM(l,I),I+l,MXS) 


NOO, IOTYP(NOO), AREAO(NOO), (IOCM(NOO,I),I-l,MXS) 
RC J. Structural Data File Access and Storage 

(nsdat(i),i=i,:nms) 

(NSTOR(I),I=l, NMS) 

RC K. Global Node Points 
1, X, Y, Z 


NN, X, Y, Z 

RC L. Surface Description 

1, ISTYP(l), AREA(l), (ISURCM(1,I),I=1,MXS) 


ft 

NS, ISTYP(NS), AREA(NS), ISURCM(NS,I),I=1,MXS) 

RC M. Master Surface/Surface Relationships 
1, (MASSUR(1,I),I=1,MNSS) 


NMS, (MASSUR(NMS,I),I=1,MNSS) 

RC N. Structural Constants: Modal Analysis 
1, (SC(1, 1), 1-1, NSC) 


NMS, (SC(NMS,I),I=1,NSC) 


(leave off SC if NSDAT(ISUR).NE.O) 
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RC O. Structural Modal Data 


NFEDS 

1,IFE(1),NFEN,SL1,SL2), 

, IF(IFE(l).NE.O)THEN ALSO 

!? ( IF(IFEN(J),J=1,NFEN) 

1= (STM(l,K,l),K-l,3),SORG(l,l) 

"j (STM(2,K,l),K-l,3),SORG(2,l) 

m (STM(3,K,lS),K,l,3),SORG(3,l) 

« 

3 ■ • 

' t 
?i 


NMS,IFE(NMS),NFEN,SL1,SL2) 

IF(IFE(NMS).NE.O)THEN ALSO 

(IFEN(J),J=1.NFEN) 

(STM(l,K,NMS),K-l,3),SORG(l,NMS) 

(STM(2,K,NMS),K-l,3),SORG(2,NMS) 

tSTM(3,K,NMS),K=l,3),SORG(3,NMS) 


^ NOTE: Full FE data is on a prepared mass storage file (L18). The form of the data on 

g* that file is given under the description of file L18 in section 6.7. 

I 

ei RC P. Structural Constants: Statistical Energy Analysis 

Hi 1, ISEAO(l) 

$ (WMH(J,1), J=1,NSEAC) 


I . 

> (WMH(J,NTOB), J=1,NSEAC) 

1 ' 


t 

\ NMS, ISEAO(NMS) 

\ (WMH(J,1), J=1,NSEAC) 


| (WMH(J,NTOB), J=l, NSEAC) 

K, 

h RC Q. Volume Description 

U 1, IVTYPU), V(l), (IVOLCM(l,(), I-1,MXV) 

S * 

I • 

% 

NV, IVTYP(NV), V(NV), (IVOLCM(NV,I), 1=1, MXV) 

? RC R. Acoustic Constants 

RO, CO, PREF 


fj 



II 
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RC T. Surface/Volume Relationships 
1, ISV(l) 


• : 

NS, ISV(NS) 

RC S» Acoustic Modal Data 

RC U. Surface Absorption 

(ZNDATA(I),I=1,NT0P) IF MOP(3) = 1 

-OR- 

1, IX IF MOP(3) = 0 

(ZNDATA(l,I),I=l,NTOB) 


NS, IX 

(ZNDATA(NS,I),I=1NT0B) 

* 

f RC V. Structural Damping 

i - 1 i, ix 

g * , (ZMDATA(l,I),I=l,NTOB) 

& 

k- , • 

r I ■ : 

t l' • ; 


I NMS, IX 

* (ZMDATA(NMS, 1)1=1, NTOB) 

r . - • 


l RC W. External Sound Pressure Level 

1, IPF(l) 

\ ° (SPL(l,I),I=l,NTOB) 

I : - " * 


NMS, IPF(NMS) 

(SPL(NMS,I), 1=1, NTOB) 

RC X. External Pressure Field Description 
1, IPF(l) 

(EX(l,I),I=l,NPFC) 


[" NMS,IPF(NMS) 

; (EX(NMS,I),I=1,NPFC) 

RC Y. Band Center Frequencies 
\ (CENTF(I)(I), 1=1, NTOB) 

f 

%. RC Z. Reverberation Time 
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The Data Input File has 26 sections lettered A through Z. Each section of data cards is 
headed by a title card. Each title card begins with a read code. If the code is the 
integer 1, the program is alerted that the section is to be read. If the code is 0, the 
program is alerted that there are no cards in that section, and the program therefore 
will expect the following data card to be the next section's title card. The program 
options selected by the user determine which data sections are required and which are 
not. Variables are integer or real by the standard implicit definitions. All data reads 
are unformatted. Variables on a single card are simply separated by commas. Of 
course, all variables must be given in a consistent set of units. 

A. Option Selection 

The option selection requires four data cards. The read code is always 1, The 
first card is for selection of the type of analysis. 

Card Al: IOP - A single integer with 

1 - Space-averaged, band-averaged pressure squared with random external 

pressure field excitation. 

2 - Space-averaged pressure squared at discrete frequencies with random 

external pressure field excitation. 

3 - Space-averaged, band-averaged pressure squared with deterministic 

excitation. 

4 - Space-averaged pressure squared at discrete frequencies with determi- 

nistic excitation. 

5 - Multiple cavity analysis only. 

6 - Reverberation time. 

The second option selection data card flags miscellaneous options. A "1" 
activates the option; "0" deactivates the option. 

Card A2: MOP(4) - Four integers on the card with 

MOP(l) - Retain mass storage file after execution of program. 

MOP(2) - Surpress printing of the input data. 

MOP(3) - Use experimental cavity damping. 

MOP(4) - Use short BMN calculation on new modal data. 
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If a data file is to be kept for the problem at hand, set MOP(l)=l. The input data 
is automatically mirrored to a printer unless MOP(2) is set to 1. If acoustic damping is 
explicitly known as a function of frequency, it may be entered as data by setting the 
flag MOP(3) equal to 1. Otherwise it is assumed that the cavity damping must be 
calculated from surface absorption and acoustic modal characteristics. Finally, if new 
modal data is to be input, from finite element analysis or experiment, etc., the method 
of calculating the double sine series representation of the mode shapes can be selected. 
If MOP(4) is set to 1, then the surface integrations required to calculate the series 
coefficients will be simple summation of the modal data. Otherwise, a more 
sophisticated and time-consuming surface integration method will be used. 

The third option selection card flags which parameters, if any, are available in the 
data file. Again, 1 activates the option and 0 deactivates the option. 

Card A3: IPRE(4) - Four integers on the card with 

IPRE(l) - Acoustic response precalculated. 

IPRE(2) - Acoustic absorption precalculated 

IPRE(3) - Structural/acoustic interaction, L nm , precalculated for all 
surfaces. 

IPRE(4) - Generalized force or joint acceptance precalculated for all 
surfaces. 

Further details, such as "For which surfaces is the response precalculated?" are given in 
later sections of the input. 

The fourth option selection card gives general data file access and storage 
information. 

Card A4: Four integers on the card with 

NPROB - Old problem access number 

NPROBN - New problem access number 
MTAPE - Old tape access number 
NTAPE - New tape access number 
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If precalculated acoustics are to be used in this run of the program, the problem's 
reference number must be given. If there is no previous problem, set NPROB to zero. 
If the important parameters of the problem at hand are to be saved for future use, the 
problem must be given a reference number. Two tapes are used to eliminate the 
possibility of a write error destroying the data tape. The data tape, referenced by file 
number MTAPE, is read into random access mass storage files. During the execution of 
the program, the random access files are updated with the new data from NPROBN. At 
the completion of the run, a new tape — NTAPE — which holds all the previous data and 
the new data, is created. 

B. New Data File Sizing Parameters 


The parameters given in this section size the mass storage files. Each parameter 
is the maximum number allowed for the particular data file. Once these parameters 
are set for a given data file, they cannot be changed. Any problem placed on the data 
file may have smaller but never larger values of these parameters. The B card is only 
read if a new data file is to be created. 


Card Bl: 


NFV - 
NFS - 
NPFCT - 
NTOBT - 
NVT - 
NST - 
MXVT - 
MXST - 
NAMT - 
NSMT - 
MXT - 


NXT - 


NAMMCT - 
NSEACT - 


NFV, NFS NPFCT, NTOBT, NVT, NST, MXVT, MXST, NAMT, NSMT, 
MXT, NXT, NAMMCT, NSEACT 

Problems stored on data file 
Structural surface descriptions 
Pressure field constants 
Frequency bands 

Subvolumes in multiple cavity system 

Surfaces in the problem 

Volume nodes 

Surface nodes 

Acoustic modes 

Structural modes 

Largest index in the M direction for Fourier series modal response 
representation 

Largest index in the N direction for Fourier series modal response 
representation 

Multiple cavity nodes of importance 
Statistical energy analysis constants 


132 


The data file is intended to reduce the overall computational requirements of a 
design concept evaluation or a sensitivity analysis of a particular problem. The 
preferred values of the constants will therefore depend on the size of the general 
problem at hand. 

C. Range: Frequency Domain 

Factors that define the frequency range of the program's calculations are given on 
the C data card. 

Card C: LBAND - Lowest frequency band of interest 

MBAND - Band at which SEA assumptions become valid 
IHBAND - Highest frequency band of interest 

BW - Frequency band width factor (0.12 for one-third octave bands) 
where 1 < LBAND < MBAND < IHBAND < NTOB 

The user directs the use of modal and/or statistical energy analysis, when allowed 
by the option selected, by the selection of LBAND, MBAND, and IHBAND. Between 
LBAND and MBAND the program uses the modal analysis method. Between MBAND 
and IHBAND the program uses the statistical energy analysis method if option 1 or 3 
was selected. Hence, if MBAND is set equal to IHBAND, only modal analyis is 
performed. On the other hand, if LBAND is set equal to MBAND only SEA is 

performed. While the program can handle full octave bands, one-third octave band 
averaging is recommended. 

The selection of MBAND is entirely a function of the internal acoustics of the 
problem. SEA assumptions become valid at the frequency above which the internal 
acoustics can be considered reverberant (more than six acoustic moodes per one-third 
octave band). Due to geometry, this frequency is also assumed adequate for SEA 
descriptions of the structural response. A good estimate of the correct point to shift to 
SEA can be made by 

1. Select the subvolume with the smallest volume. 

2. Calculate f = 1300/ ^"v - (with volume, v, in ft"*). 

3. MBAND is the band whose center frequency is closest to but not less than f. 


MBAND selection in this manner assures that the acoustic field within each subvolume 
can be considered reverberant. At this point, the SEA analysis can be used to calculate 
noise levels averaged over each subvolume. 


D. Range: Discrete Frequency 

Factors that define the range of the program's discrete frequency calculations are 
given on the D data card. 


Card D: WI, WF, NWS 

WI - The initial frequency 
WF - The final frequency 

NWS - The number of frequency steps across range 
This data card is needed only when calculation option 2 or 4 is selected. 


E. Tolerances 

All input tolerances are given on the E card. 

E Card: Zero - Value considered 0.0 

EPS - Fraction of the maximum contribution from a single 
mode that can be neglected in the modal summations 


EPS is used in the routine BNDCAL to establish structural and acoustic band- 
widths of importance for each band. This sophisticated modal summation limiting 
method assures that only the modes significant in each band are used in the 
calculations. 

F. Matrix Sizing 


The matrix sizing establishes, to a great extent, the size of the problem at hand. 


F Card: NN - 
NS - 
NMS - 
MNSS - 
NAS- 
MXS - 


Global node points 

Surfaces 

Master surfaces 

Subsurfaces per master surface 

Absorption surfaces 

Nodes per surface 


134 


NSMX - 
NSC - 
NV - 
MXV - 
NAM - 
NTOB - 
MFE - 
MX - 
NX - 
NSEAC - 
NPFC - 


Structural modes per surface 
Structural constants 
Sub volumes in system 
Nodes per subvollume 
Acoustic modes per subvolume 
One-third octave bands 
Finite element nodes 

X-direction Fourier series summation limit 
Y-direction Fourier series summation limit 
SEA constants 

Pressure field correlation constants 


Parameters NN through MXS are all obtained from the problem drawing as 
described in section 6.6. The maximum number of structural modes, NSMX, needed for 
a particular problem depends on both the frequency range of interest and the structures 
involved in the problem. A good estimate of the NSMX required can be obtained by 

1. Select the structure with the lowest natural frequency. 

2. Recall the highest frequency band to which the modal analysis will extend 
(MBAND-1). 

3. NSMX is the number of structural resonances below the center frequency of 
band MBAND. 

If only SEA is to be used, set NSMX to zero. The maximum number of structural 
constants, NSC, is simply a function of the structural types in the modal analysis 
portion of the problem. 

Parameters NV and MXV are obtained from the drawing of the problem as 
described in section 6.6. The maximum number of acoustic modes, NAM, needed for a 
particular problem depends on the frequency range of interest and the acoustic 
subvolumes of the problem. A good estimate of the NAM required can be obtained by 

1. Select the largest subvolume of the multiple subvolume system. 

2. Recall the highest frequency band to which the modal analysis will extend 
(MBAND-1). 
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3. NAM is the number of subvolume acoustic resonances below one and one- 
half times the MBAND center frequency. 

If only SEA is to be used, set NAM to zero. The number of one-third octave 
bands, NTOB, establishes the maximum range of frequencies the calculations may 
cover. 

The matrix sizing parameters MFE, MX, AND NX have to do with the description 
of modes with double Fourier series. If modal data is to be given, the maximum number 
of points at which the mode shape is defined must be provided. MX and MY must be 
chosen large enough to adequately define the mode shapes over the surface with the 
double Fourier series. Since the mode shapes are only used in surface integrations, 
exact replication of the shape is not required. The MX and NX, however, must be 
sufficiently high to match the number of nodal lines in the highest frequency structural 
mode to be approximated. The number of SEA constants, NSEAC, and the number of 
pressure field constants, NPFC, are determined by the structural types and the external 
pressure field types called out in the problem. 

G. Multiple Cavity Parameters 

The G card provides the parameters that direct certain aspects of the acoustic 
component mode synthesis. 

G card; NAMMC - Acoustic modes important around exciting frequency 
NOO - Openings 
NOM - Opening modes 
NMO - Total opening modes available 
GN - Acoustic modes assumed at some opening mode set 
DFQY - Frequency step in natural frequency calculations 

N1 - Iterations allowed in Newton Raphson convergence on 
the acoustic natural frequency 
ER - Error limits in Newton Raphson iteration 

The number of opening modes, NOM, is by far the most important factor in the 
component mode synthesis computation time requirements. A technique is used to 
select the most important NOM opening modes from an array of NMO opening modes 
based on the multiple cavity natural frequency. The evaluation method is executed 
once for every NG acoustic multiple cavity modes. 
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H. Opening/ Volume Relationships 

The opening/ volume relationships are used in the generation of the acoustic 
component mode synthesis equations. There are NOO "H" cards. 

H cards: 1 NVOL (tail), NVOL (head) 

NOO, NVOL (tail), NVOL (head) 

The first integer on each card is the opening number as defined on the problem's 
drawing (see 6.6). The second integer is the lower subvolume number of the two 
subvolumes separated by the opening. The third integer is the higher adjacent 
subvolume number. The subvolumes are also as numbered in section 6.6. 

I. Opening Description 

The opening element types, area and geometry are needed for the acoustic 
component mode synthesis. 

I cards: 1, IOTYP(l), AREAO(l), (IOCM(l,I), 1-1, MXS) 

NOO, IOTYP(NOO), AREA(NOO), (IOCM(NOO,I), I-1,MXS) 

The first integer on the card is the opening number. The second defines the 
opening element type from the Program Library of Modal Elements. The third number 
on each I card is the area of the opening (real number). The final MXS integers are the 
global node points defining the opening geometry and location. If MXS is greater than 
the number of nodes required for any particular opening type, place zeros in the 
unneeded slots. 

J. Structural Data File Access and Storage 

The mass storage data file, as described in section 6.7.3, holds structural response 
data calculated in previos computer runs. Each surface on the data file has a unique 
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reference number. The J cards supplies the data file access and/or storage reference 
numbers 

J card Is NSDAT(l), NSDAT(NMS) 

J card 2: NSTOR(l), ..., NSTOR(NMS) 

The first J card gives the data file reference number for each surface of the 
present problem. If no data exists for a particular surface, a zero is put in that slot. 
The second J card gives the reference number under which each surface of the present 
problem will be stored at the completion of the program calculations. Each J card must 
have NMS integers. 

K. Global Node Points 

The global node points are used to locate the various volume, opening and surface 
elements of the problem in global coordinate space. Refer to the scaled drawing with 
the numbered node points to prepare the K cards. 

K cards: 1, X, Y, Z 

• : 

NN, X, Y, Z 

The first entry on each K card is the node number. The next three real numbers 
are the global X, Y, and Z position of the node. 

L. Surface Description 

The surface description cards define each surface element of the problem and 
locates the element in the global coordinate space. 

L cards: 1, ISTYP(l), AREA(l), (ISURCM(IS,I),I-1,MXS) 

NS, ISTYP(NS), AREA(NS), (ISURCM(NS,I),I-1,MXS) 
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The first integer on each L card is the surface number as identified on the 
isometric drawing of the geometry. The next integer, ISTYP(I), is the surface element 
reference number from the Program Library of Surface Elements. If the surface only 
inputs power in the SEA frequency range (another master surface is specified to provide 
the modal analysis data) then enter a zero for ISTYP(I). The surface area, AREA(I), is 
given next followed by the MXS nodes that locate the element in the global coordinate 
space. If MXS is greater than the number of nodes required for any particular surface 
type, place zeros in the unneeded slots. If ISTYP(I) is zero, then place zeros in all the 
ISURCM slots. 

M. Master Surface/Surface Relationships 

When a master surface extends over more than one subvolume, subsurfaces are 
defined. Each subsurface is associated with only one subvolume. The M cards establish 
the relationships between the master surface and the subsurface. 

M cards: 1, (MASSUR(1,I),I-1,MASS) 

NMS, (MASSUR(NMS,I),I-1,MNSS) 

The first integer on each M card is the master surface number as established on 
the isometric drawing of the geometry. The remaining MNSS entries on each card is 
the surface numbers of the subsurfaces associated with that particular master surface. 
Zeros are entered in the unneeded data slots. The number of data slots on each card is 
equal to (1+MNSS). 

N. Structural Constants: Modal Analysis 

The structural constants needed for the modal response description of each 
master transmission surface can be provided in this data section. 

N cards: 1, SC(1, 1), ...» SC(1,NSC) 

. • 

■ ■ ■ • 

NMS, SC(NMS,1), ..., SC(NMS,NSC) 
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The first integer on each N card is the surface number as identified on the 
isometric drawing of the geometry. The remaining NSC entries on each card are the 
real structural constants. If NSC is greater than the number of constants required for 
any particular surface type, place zeros in the unneeded data slots. The documentation 
for the Program Library of Surface Elements defines how many structural constants are 
needed and in what order they should be supplied. If the surface is already described in 
the data file (NSDAT(ISUR).NE.O) or (ISTYP(ISUR).EQ.O), then simply insert a card 
with the master surface number on it, omitting the structural constants. 

0. Structural Modal Data 

This allows access to a prepared data tape of finite element structural response 

data. 


O cards: NFEDS 

1,IFE(1),NFEN,SL1,SL2 
IF(IFEU).NE.O) Read 
(IFEN(J),J=1,NFEN) 
(STM(l,K,l),K=l,d),SORG(l,l) 
(STM(2,K,l),K=l,3),SORG(2,l) 
(STM(3,K,l),K=l,3),SORG(3,l) 


NMS,IFE(NMS),NFEN,SL1,SL2 
IF(IFE(NMS).NE.O) read 
(IFEN(J),J=1,NFEN) 

(STM(1,K,NMS),K=1,3),S0RG(1,NMS) 

(STM(2,K,NMS),K=l,3),SORG(2,NMS) 

(STM(3,K,NMS),K=l,3),SORG(3,NMS) 

The integer, NFEDS, indicates the number of sets of finite element data on the 
data tape. The first integer of the next card is the surface number. The next integer is 
the data access number for the master surface. If the master surface does not have a 
finite element description of the mode shapes, a zero is entered. NFEN is the number 
of nodes associated with the surface. SL1 and SL2 are the x and y dimensions of the 
surface. Should these factors not apply, enter a zero. 
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The next four data cards are required only if finite element data is associated 
with the surface. The array, IFEN(NFEN), holds the node numbers of the finite element 
data that are associated with the particular surface. The final three cards provide the 
transformation matrix STM and SORG needed to convert the locations of the finite 
element nodes from global F.E. coordinates to the local surface coordinate system. 

A separate routine generates the data file from either card images or a 
NASTRAN data tape (output 4 format). This routine, FEPRP, is described in section 
6.12. The data file holds the following information for each surface (modal analysis 
range). 

NFEN - Number of finite element nodes 
NSM - Number of structural natural frequencies 
WM(l,NSM) - Natural frequencies 
Dl(NFEN) - X-position of each node 
D2(NFEN) - Y-position of each node 
D3(NFEN) - Z-position of each node 
VM(NFEN) - Nodal mass 

SN(NFEN,NSM) - The mode shape value of the three translational degrees of freedom 

P. Structural Constants: Statistical Energy Analysis 

The structural data needed to complete the SEA response description of each 
master surface are provided in this section. Since the response description models band 
averaged type parameters, the SEA structural parameters are given as a function of 
frequency, a set of constants for each frequency band of interest. 

P cards: 1, ISEAO(l) : code card 

(WMH(J(J,1)), J=1,NSEAC) : data cards 

• ■ 

(WMH(J,NTOB),J=l,NSEAC) 

* 

NMS,ISEAO(NMS) 

(WMH(J(J,1)),J=1,NSEAC) 
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(WMH(J,NT0B),J=1,NSEAC) 


The integer for the ISEAO array identifies the SEA surface type as defined in the 
documentation for the Program Library of SEA Elements. If the surface is not active in 
the SEA frequency range then enter a zero for ISEAO(I). If joint acceptance 
information for the surface has already been calculated (NSDATGSUR)#)) then indicate 
the surface type on the code card but do not include data cards for the surface. If WMH(1,M) 
is set to -1, the program will read the remainder of line M then expect the next data 
card to be a code card. 

Q. Volume Description 

The volume description cards define each volume element of the problem and 
locates the element in the global coordinate space. 

Q cards: 1,IVTYP(1), V(l), (IVOLCM(l, 1)4=1, MXV) 

NV, IVTYP(NV), V(NV), (IVOLCM(VN,I),I=l,MXV) 

The first integer on each Q card is the volume number as identified on the 
isometric drawing of the geometry. The next integer, IVTYP(I), is the volume element 
reference number from the Program Library of Volume Elements. The volume, V(I), of 
the element is given next, followed by the NXV nodes that locate the element in the 
global coordinate space. If MXV is greater than the number of nodes required for any 
particular volume type, place zeros in the unneeded slots. 

R. Acoustic Constants 

The acoustic constants needed to complete the acoustic response description are 
provided in this data section. 

R cards: RO - Density of the fluid 

CO - Speed of sound in the fluid 
PREF - Reference pressure for calculation of decibels 
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S. Acoustic Modal Data 

T. Surface/Volume Relationships 

A master surface may or may not be associated with a single subvolume. All 
other surfaces, the subsurfaces and absorption surfaces are, by definition, adjacent to 
only one subvolume. The S cards define these relationships. 

S cards: 1, ISV(l) 


NS, ISV(NS) 


The first integer on each S card is the surface number as defined on the isometric 
drawing of the geometry. The second integer is the number of the subvolume that is 
adjacent to the indicated surface. If the surface is a master surface that extends over 
two or more subvolumes, enter a zero. 


U, Surface Absorption 

The wall impedance is given in the data in terms of the absorption coefficient: 

ct = 8 pc/Z, 


a 


where Z is the normal surface impedance. 

a 

Ucard: 1, IX 

(ZMDATA(l,I),I=l,NTOB) 


NS, IX 

(ZMDATA(NS,I),I=l,NTOB) 


- code card 

- data card 


- code card 

- data card 


\ \ 


The absorption coefficient for each surface and for each frequency band is given. 
The IX is a code that directs the following read options: 

IX = 0 Then the surface is a master surface with subsurfaces. The read skips 
to the next code card. 

IX - 1 Read the data card. 
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The modal analysis equations use the surface impedance data and along with the 
acoustic mode shape information to calculate the acoustic modal cavity damping. If 
the option MOP(3)=l is selected, the acoustic cavity damping is provided as data. This 
data is entered in place of the first surface’s impedance data. 


In the SEA calculations, the program uses the surface absorption coefficient to 
calculate the power absorbed by the surface. Note that acoustic damping information 
must be provided for the entire frequency range of interest (frequency band 1 to band 
NTOB). 


For ease of data entry, the wall impedance will be entered in terms of absorption 
coefficient defined as 


a = 8 p c/Z 

a 


In the SEA calculations, the program will use this factor directly. In the modal 
analysis calculations, the program will use the value to calculate the cavity damping 
factor. 


V. Structural Damping 

The internal energy dissipation characteristics, or damping, of each master 
transmission surface must be given as a function of frequency. 

V card: 1, IX - code card 

(ZMDATA(I), 1=1, NTOB) - data card 


NMS, IX - code card 

(ZMDATA(I), 1=1, NTOB) - data card 

The first integer of the code card identifies the master surface. The IX is a code 
that directs the following read options: 

IX = O Skip to next code card. The mass storage data is good for this surface. 
IX = 1 Read the new data card and replace over the old data in mass storage, 
if any. 
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The damping is given in terms of C/C Q , or percent of critical damping. 


W. External Sound Pressure Level: Frequency Domain 

The reference sound pressure level of the exterior side of each master transmis- 
sion surface is provided as a function of frequency. The reference SPL is the band- 
limited perturbation pressure squared at the centroid of the master transmission 
surface. The level must be expressed in decibels with the reference pressure as given 
by the "R" input card. A later section will describe the relationship of the pressures at 
other points on the surface to the reference pressure. 

W cards: 1, IX - code card 

(SPL(I),I=l,NTOB) - data card 


NMS, IX - code card 

(SP.'L(I) I=l,NTOB) - data card 


The IX is a code that directs the following read options: 

IX = O Use SPL data already in mass storage for this surface. 

IX - 1 Read the new data card and replace over the old data in mass storage. 


X. External Pressure Field Description 


Several types of external pressure fields are held in the Program Library of 
External Pressure Fields. The constants needed to complete the description of the 
pressure field are provided for each surface. 

X cards: 1, IPF(l) - code card 

(EX(1,I),I=1,NPFC) -datacard 


NMS, IPF(NMS) - code card 

(EX(NMS,I),I=1,NPFC) - data card 


The first integer of each data set is the number of the master transmission 
surface. This is followed by the pressure field reference number, which defines the 
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type of external pressure field for that master transmission surface. If mass storage 
data is available, place a zero for the field type and skip to the next code card. The 
second card in each set gives the constants as defined in the Library of External 
Pressure Fields. The various external pressure fields over a surface can be random or 
deterministic and described in the frequency domain. It can also be deterministic and 
described in the time domain. The type of external pressure field description available 
for the problem often determines the type of analysis that must be conducted. 

Y. Band Center Frequencies 

The center frequencies of each band are given for the range of interest. 

Y cards: (CENTF(I),I=l,NTOB) 

The frequencies must be given cycles per second. The program converts these 
more common units to radians per second for calculations. 

Z. Reverberation Time 

This section gives access to a specialized routine included in VIN for the 
calculation of a cavity's reverberation time. Reverberation time is defined as the time 
required for the diffuse pressure in a room to decay 60 dB after the pressure-generating 
source is turned off. 

Z cards: IC, DT 

The integer IC specifies the type of reverberation calculation to be made. Enter 
a 1, and REVERB calculates the overall reverberation time. Enter a 2, and the band- 
limited reverberation time is calculated. DT is the time step for either selection. 

6.11 Executive Commands 

Executive commands for program collection, mass storage file management, and data 
tape management have been combined into several program files. The user may select 
the program file with the command series desired. 


<§. RUN 

@ ADD, P XX. DEL 
@ ADD, P XX.TAPIN 


- required 

- optional 

- optional 


V... '-rr. :: .-. 


<§. ADD, P XX.SOURCE - required 

@ ADD, P XX. DATA - required 

@ ADD, P XX.EXTND - optional 

<§. ADD, P XX.TAPOT - optional 

@ FIN - required 


Required RUN card is filled out in accordance with site requirements 

Optional XX.DEL deletes all cataloged program files with the names, LO, LI, ..., 

L18. 

Optional XX.TAPIN represents a series of tape management commands left to the 
user since the commands may vary from site to site. These commands should load 
saved mass storage data back into mass storage. A sample XX.TAPIN run stream is 
given in appendix D along with the program listing. 

Required XX.SOURCE must be one of the following: 

XX.SOURC1 

1. Recompiles and maps all program routines 

2. Starts program execution 

XX.SOURC2 

1. Assumes program already compiled and starts program execution 

Required XX.DATA is the input data file as fully described in section 6. 

Optional XX.EXTND extends the cataloged data files LO through L18 for 8-day 
retention by system. (Univac 1108 Marshall Space Flight Center, Huntsville, Alabama, 
system.) 

Optional XX.TAPOT represents a series of tape management commands left to 
the user. The commands should load mass storage files LO through L18 onto tape in 
bulk. A sample TAPOT series is given with the program listing in appendix D. 

Required FIN card completes the run in batch mode. 

6.12 Finite Element Data File Preparation 

A program, referred to here as FEPRP, is required to load the finite element data file 
L18. Refer to the description of file L18 in section 6.7 for the required format. Since 
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many finite element programs are available, each with several output options, the user 
has been left the responsibility for this aspect of the data input preparation. For 
illustrative purposes, however, an FEPRP routine for NASTRAN output capabilities has 
been written. The commented routine is given in appendix D. 


Section 7 


APPLICATION TO SPACE SHUTTLE PAYLOAD BAY 

The general purpose structural/acoustic interaction model, VIN, was used in the analysis 
of the Space Shuttle payload bay noise transmission problem. Three specific cases were 
modeled: the OV-101 jet noise test case with empty payload bay, the OV-1Q1 jet noise 
test case with Spacelab-2 payload, and the STS-2 launch. 

On January 31, 1977, at Edwards Air Force Base, an acoustic test, using two jet aircraft 
as the acoustic source, was performed on the OV-101. This well-documented test 
provides the best means available to evaluate the structural and acoustic models 
developed for the empty Space Shuttle payload bay, 

The structural model for the modal analysis calculations is derived from a finite 

(15) 

element analysis and some "interpretation" of this data. The structural finite 
element data spanned the entire modal analysis frequency range (0-80 Hz). The 
structural model for the statistical energy analysis calculations was adapted from that 
developed for NASA in reference 3. The SEA model in reference 3 included the bottom, 
sidewall, bulkhead, and payload bay door structures. Since the payload bay doors 
dominate the acoustic power input to the cavity, the structural model implemented in 
VIN assumes the bottom, sidewall and bulkhead to be rigid. 

The predictions of the significantly simplified structural model implemented in VIN, the 
predictions of the model of reference 3, and experimental results are shown in figure 8. 
The shaded area indicates the band of possible experimental error. More precisely, 
deviations of predicted levels from the experimental value within the band indicated 
are not statistically significant at the 1% level of significance. ' By this criterion, 
the simplified model used in the calculations by VIN can be considered as valid as the 
more complex model of reference 3. In essence, the interior noise predictions in the 
SEA region have a single driver, the payload bay doors. Details of the structural model 
development are presented in depth in the references.^’ A complete input data file 
for the test case is given in appendix E. It should be noted that the final door model 
parameters were chosen to force fit the experimental noise data. Model predictions 
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Figure 8. Measured and Predicted Payload Bay Acoustic Levels 
for OV-101, Tests 2 and 3 




based on the initial (pre-experiment) and final (post-experiment) door models are given 
in figure 9. This particular figure gives clear evidence of the extreme difficulty, if not 
impossibility, of accurately modeling the high frequency behavior of complex structures 
without structure-specific test data. 

Scale model tests were also conducted for NASA to examine the effects of payloads on 

(17) 

the average payload bay noise levels. The Spacelab-2 payload was one of the 
several configurations tested. Some of the experimental results are shown in figure 10. 

The addition of a payload has several effects on the acoustic response characteristics of 
the payload bay. A payload reduces the volume of the acoustic space; it alters the 
mode shapes of the volume; and it increases the overall acoustic absorption of the 
payload bay. A decrease in volume tends to increase the noise level. A change in 
acoustic mode shapes will generally have little effect on the overall noise level in the 
volume if the excitation is broadband. It may, however, cause large one-third octave 
band level changes. An increase in acoustic absorption, of course, tends to decrease the 
noise level. 

The analytical models implemented in VIN are theoretically capable of representing 
these effects. As a practical matter, however, accurate quantitative predictions were 
not achieved. In the low frequency regime, the complexity of the acoustic space around 
the Spacelab-2 payload was beyond the ability of the component mode synthesis to 
accurately model. In both the modal and SEA calculations, payload absorption 
estimates had to be made based on data with an order of magnitude of scatter (see 
reference 17). While it is clear that reasonable numbers could be chosen that would 
force a fairly good match of the experimental results of figure 10, such an exercise is 
considered meaningless. 

Finally, the interior payload bay noise level for the STS-2 flight launch conditions was 
predicted. Comparison with flight data is given in figure 11. The structural model 
remained as previously described except for an increase in payload bay door mass to 
represent the addition of the thermal protection system. The input data file for this 
case is listed in appendix E. The predictions are in reasonable agreement with flight 
data considering the statistical variability associated with the small number of internal 
and external microphone measurements. 
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Figure 11. Measured and Predicted Payload Bay Acoustic Levels 
for STS-2 Liftoff (data 6-12 seconds after ignition) 



Section 8 


SUMMARY 

A general purpose computer program was developed for the prediction of vehicle 
interior noise. This program, named VIN, has both modal and statistical energy analysis 
capabilities for structural/acoustic interaction analysis. 

The analytical models and their computer implementation were verified through simple 
test cases with well-defined experimental results. The model was also applied in a 
Space Shuttle payload bay launch acoustics prediction study. 

The computer program will process large and small problems with equal efficiency 
because all arrays are dynamically sized by program input variables at run time. A data 
base can be built and easily accessed for design studies. The data base significantly 
reduces the computational costs of such studies by allowing the reuse of the still-valid 
calculated parameters of previous iterations. Given accurate structural and acoustic 
response and exterior acoustic field data, the program will yield reliable results. The 
problem facing the program user will be the determination of the input data. Except 
for the most simple cases, finite element or experimental structural data will probably 
be needed for the modal analysis portion of the program. The acoustic component mode 
synthesis capability of the program makes the determination of the modal analysis 
range acoustic response less of a problem. For the SEA model, the estimation of the 
statistical energy analysis parameters, such as the joint acceptance, is required. The 
joint acceptance includes or is implicitly coupled with structural mode shape informa- 
tion, structural modal density, and external (and internal) pressure distribution estima- 
tion. The combined complexity of these factors usually limit the SEA method to rough 
design trend studies or a post-test semiempirical modeling role. In any case, the 
general purpose program VIN provides the framework needed to make use of the full 
capabilities of both the modal analysis and SEA methods for vehicle interior noise 
predictions. 
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PROGRAM LIBRARY OF MODAL ELEMENTS 
PART L VOLUME ELEMENTS 



where 



C Q - speed of sound in fluid 

m, n, s - integer indexes for x-, y-, and z-directions, respectively 

xL - length of parallelepiped in x-direction 
yL - length of parallelepiped in y-direction 

zL - length of parallelepiped in z-direction 
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1 if m 1 

2 if m = 0 

1 if n 1 

2 if n = 0 
1 if s 1 

= 2 if s = 0 


With D calculated in this manner, the acoustic generalized mass 
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le. Summary of Program Variables Associated with Volume Element Description 


NVOL - assigned volume number 
OVTYP(NVOL) - volume type 
(VNODC(l,J,NVOL),J=l,3) - x, y, z coordinates of node 1 
(VNODC(2,J,NVOL),J=l,3) - x, y, z coordinates of node 2 
(VNODC(3,.J,NVOL),J=l,3) - x, y, z coordinates of node 3 
(VNODC(4,J,NVOL),J=l,3) - x, y, z coordinates of node 4 
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C - speed of sound in contained fluid 
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XL,YL,ZL - primary lengths of parallelopiped calculated from 
the node points 

WN(l,NWN,NVOL) - natural frequency of volume mode NWN 
WN(2,NWN,NVOL) - modal index m of volume mode 
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WN(3,NWN,NV0L) - modal index n of volume mode NWN 
WN(4,NWN,NVOL) - modal index s of volume mode NWN 



where K is calculated by the solution to the equation: 
nm 
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and J (x) - Bessel function of the first kind 

n 

a - radius of cylinder 

m, n, s - integer mode numbers of the r-,Q-, z-directions, respectively 

zL - length of cylinder along z-axis 

C - speed of sound in fluid in the volume 
o 

K - allowed frequency constant 
nm 
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C Q - speed of sound in the fluid in the volume 


zL - length of concentric cylinder 
mns - modal indexes for the r z-directions respectively 
a - inside radius 
b - outside radius 

r - radius to some point in the volume 


K„ m - allowed frequency constant 
nm 


and K__ is the roots of the equation 


nm 
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J (x) - Bessel function of the first kind 
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Y (x) - Bessel function of the second kind 
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3d. Mode Shape Equation 
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= 1 if s 1 


2 if s = 0 
1 if s 1 


= 2 if s = 0 


3e; Summary of Program Variables Associated With the Volume Element Description 


See section e of volume element 1. 
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For n=0, S=<o> 

Ys/i - o 

C Q - speed of sound of the fluid in the parallelepiped. 

4d. Mode Shape Equations 

The deformed parallelepiped's mode shape will be approximated by that of a simple 
parallelepiped 
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D mn s calculated in this manner forces the acoustic generalized mass: 

Moms = \ T* (*,'/, Z) civ = /-O 
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4e. Summary of Program Variables Associated With the Volume Element Description 

See section 3 of volume element 1. 

PART II. OPENING ELEMENTS 

la. Opening Type 1: Rectangle 

lb. Shape 


y 



lc. Mode Shape Equation 
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xs 



where xs - length of panel in x-direction 

ys - length of panel in y-direction 
p, q - modal index in the x- and y-directions respectively 
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IOTYP(NOO) - opening element type declarations 
ONODC(MXS,3,NOO) - array holding node points 
WMO(l,MWM,ISUR) - frequency factor of opening mode MWM 
WMO(2,MWM,ISUR) - modal index p of opening mode MWM 
WMO(3,MWM,ISUR) - modal index q of opening mode MWM 
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a - radius of opening 

J (x) - Bessel function of the first kind 
<3 

q, p - mode numbers 

K - allowed frequency constant such that 
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2d. Summary of Program Variables Associated With Opening Element Description 

See section d of opening element type 1. 

3a. Opening Type 3: Concentric Circle 
3b. Shape 
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3c. Mode Shape Equation 
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p, q - modal indexes for r- and ^-directions respectively 
a - inside radius of opening 
b - outside radius of opening 
Jq(x) - Bessel function of the first kind 
Yq(x) - Bessel function of the second kind 
J* (x) - first derivative of the Bessel function of the first kind 
Y^(x) - first derivative of the Bessel function of the second kind 
K - allowed frequency factor such that 

“> = °-° 


and Qq(x) is the derivative of Q^(x). 


3d. Summary of Program Variables Associated With Opening Element Description 

See section d of opening type 1. 


PART m. ANALYTIC OPENING/VOLUME COUPLING, L 

nm 

1. Opening Type 1/Volume Type 1; Reetangle/Parallelepiped 


This analytic solution assumes the opening lies on a surface of the volume with the sides 
of the opening square with the surface of the parallelepiped sides. 

i C ys (* s 

= T J J ^ %>(*,?') dx dy 

Let A - area of opening 

x' - x - a 


yt - y - b 


z' 
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m 

a, b, c 
xs, ys 
xv, yv, zv 


z - c 

represents the three acoustic indexes 
represents the two opening indexes 
coordinate transformation constants 
length of the sides of the opening 

length of the sides of the parallelepiped (Note that xs corresponds in 
direction to xv and ys to yv.) 
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The solution for YI is analogous. ! ; 

The subroutine ALIGN matches the structural and acoustic lengths and modal indexes for 

the analytical solution (see source code). i 

2. Opening Type 2/Volume Type 2: Circle/Circular Cylinder 

This analytic solution assumes the opening is at an end of the circular cylinder. > 
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^ j 

l 

■ f 

Let A - area of opening ] 

r ; e,^ - opening coordinate system j 

m - represents two opening indexes; p, q ] 

n - represents three volume indexes; ijk 
zv - length of the circular cylinder 
z' - constant z location in volume 
a - radius of circle opening 
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with p,q - opening modal indexes 

i,j,k - volume modal indexes 

Kj. - modal constant for circular cylinder (see volume type 2) 

Kpq - modal constant for circular opening (see opening type 2) 
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This analytic solution assumes the opening is at an end of the circular cylinder and that 
the r,0, and z coordinates of both elements are aligned. 



Let A - area of the opening 

r,6, z - opening coordinate system 

m - represents the two opening indexes; p, q corresponding to the r- and 
© - directions 

n - represents the three volume indexes; i, j, k corresponding to the r-, 
© and z-directions 
zv - length of circular cylinder 

z’ - constant z locaton in the volume’s coordinate system of the opening 
a - inside radius of opening 
b - outside radius of opening 
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This analytic solution assumes the opening is at the end of the concentric circular 
cylinder annulous and that the r, 9 , and z coordinates of both elements are aligned. 
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- area of opening 

- inside radius of opening 

- outside radius of opening 

- opening coordinate system 

- represents two opening indexes; p, q 

- represents three volume indexes; i, j, k 

- constant z location, in the volume's coordinate system, of the 
opening 

- length of concentric circular cylinder 

- outside radius of concentric circular cylinder 
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PART IV. STRUCTURAL ELEMENTS'. MODAL ANALYSIS 


la. Structure Type It Rectangular Shape With Fourier Series Mode Descriptions 

lb. - Shape 

y 

3 <► 1 


lc. Surface Equations 

Z = 0.0 - Surface equation 

G - 1.0 - Geometry correction factor 

RJ = 1.0 - Jacobian 

l d. Natural Frequency Equation and Structural Constants 
Natural frequencies provided as data. 

le. Mode Shape 

/HX OX 

(0 A/ A S' R Si a girx Si/i ^tt/ 

% (X,y) - yu 

? ? 


where m Bpq " coefficients of Fourier series description of mode m 

XL = SNODC(2,l>I) = length x-direetion 
YL = SNODC(3,2,I) = length y-direction 

No other structural constants are required. 
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If. Summary of Program Variables Associated With the Surface Element Description 


ISUR 

ISTYP(ISUR) 

SNODC(MXS,3,NS) 

WM(1,MWM,ISUR) 

WM(2,MWM,ISUR) 

WM(3,MWM,ISUR) 

SC(NSC,ISUR) 


assigned surface number 
surface type 

array holding node points in the surface component 

coordinate system 

natural frequency of mode MWM 

modal index of mode MWM 

modal index q of mode MWM 

structural constants for modal analysis 


G(x,y) = geometry correction factor 



where z = f(x,y) equation of the surface. 

2a. Structural Type 2: Flat, Orthotropic, Rectangular Panel With Simply Supported 
Edges 

2b. Shape 


y 



where the area of integration is indicated by the nodes 4, 5, and 6. 



sssasEsas 


2c. Surface Equations 

Z = 0.0: surface equation 
G = 1.0: geometry correction factor 
AJ = 1.0: Jacobian 


2d. Natural Frequency Equation and Structural Constants 



D - bending rigidity of structure in section perpendicular to the x-axis 

A 

D - bending rigidity of structure in section perpendicular to the y-axis 
D - (D x v^ + D y 1C + 4Gh 3 /12) / 2 
D- D x D y 

- Poisson's ratio for x-direction 

A • 

-y“ - Poisson's ratio for y-direction 
¥ 

G - material's shear modulus 
h - panel's thickness 
m - mass per unit surface area 
p, q - modal indexes 

xL, yL - length of panel in the x- and y-directions respectively 
Note that if the panel is isotropic, the natural frequency equation reduces to 
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Assign D x - SC(1,IS) 
D y - SC(2,IS) 
4Gh 3 /12 - SC(3,IS) 
- SC(4,IS) 
-YJ - SC(5,IS) 
m - SC(6,IS) 

2e. Mode Shape Equations 



The selection of D mn as shown yields the generalized mass: 

^p2 ~ j hy) dA - /‘O 

p>« p,s^l 

2f. Summary of Program Variables Associated With the Surface Element Description 

See section f of surface type 1. 
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3a. Structural Type 3: Circular Shape With Fourier Series Mode Description 


3b. Shape 


y 



3c. Surface Equations 

Z = 0.0 * Surface equation 

G = 1.0 - Geometry correction factor 

AJ = l.o “ Jacobian 

3d. Natural Frequency Equation and Structural Constants 
Natural frequencies provided as data along with Fourier series data. 

3e. Mode Shape 

Aix AX 

t (v) = % f A, S" fflf- 

where m^pq " coefficients of Fourier series description of mode m 

xL = 2 * SNODC(2,l,I) 
yL = xL 

Since no additional structural constants are needed, NSC = 0. 


RS fi 
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am Variables Associated With the Surface Element Description 


See section f of surface type 1. 

4a. Structural Type 4: Thin, Homogeneous, Circular Panel 


4b. Shape 


mm 


Surface Equations (Cylindrical Coordinate System r,&, z) 

Z = 0.0 - Surface equation 

G = 1.0 - Geometry correction factor 

AJ = r - Jacobian 

Natural Freauencv Equation and Structural Constants 


h thickness 
a - radius 
£ - density 

E - modulus of elasticity 
- Poisson's constant 

p, q - modal indexes in the r- and <9 -directions respectively 
K - the roots of the equation * (sz£ h£yf ^ 

Mir .. 
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ASSw*r> 


-^-S "3"s C^SP ^ 3T| 0‘ C 2P C '-) 

5c(l,x)= h/^-jE/^O-^V 
5 C(Z x)~ <0/1 


4e. Mode Shape Equation 


%tC ^ = 5sMjiC%^ .^rAri 


D 


PS 




J m ( x ) - Bessel function of the first kind 


- 


~ hyperbolic Bessel function of the first kind = i _m (j (ix) 

e k { f fJ (n&)r circle] //z - 


i 
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4f. Summary of Program Variables Associated With the Structural Element Description 

See part f of structural element 1, 

5a. Structural Type 5: Frame-Stiffened Orthotropic Whole Shell 

The frame-stiffened orthotropic whole shell has shear diaphram end conditions. 


5b. Shape 

z 



Since the whole shell is not single valued in the z-coordinate direction, the shell must 
be partitioned into subsurfaces that are single valued in the z-direction. Nodes 4 and 5 
are used to define the location of the subsurfaces as shown. 


5c. 


Surface Equations (Cylindrical Coordinate System r,0> x) 

r - constant - Surface equation 

Geometry correction factor 
Jacobian 


G = 1.0 
AJ = r 


5d. Natural Frequency Equation 

The natural frequency must be determined by the lowest frequency solution of the shell 
matrix equation J aQ = °> where 

a n 


m ■ 




a. 




t (X 


4f 






i. 


and p - axial modal index 

q - circumferential modal index 
- density of the skin material 
b - radius of the cylinder 
xL - length of the cylinder 
"V*- Poisson’s constant for cylinder material 
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Ar\t> WHE2-E 

C 
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- E 




S s 


S * L e ((--a 


D (1 - 


^ TT Ss 

4 C I-tT z ) 


r P ^ S e 

W2 = D<\ 

~ e 4(1^) 


> E f ^ 

U 


5 ^22. = 


- 4 


*© 


U (l-TT 2 ) Lp 


where Ag - cross-sectional area of load-bearing skin normal to axial direction. 

Ag - effective cross-sectional area of load-bearing skin normal to cir- 
cumferential direction 

Ap - frame cross-sectional area 

Ig - moment of inertia of skin section normal to axial direction about 
s skin-frame centroid 

I Q - moment of inertia of skin section normal to circumferential 
direction about skin-frame centroid 

1^ - moment of inertia of frame cross section about skin-frame centroid 

F e 

Lp - axial repeat length of frames 

L© - circumferential length of skin 

Eg - axial elasticity of the skin 
s 

Eg - circumferential elasticity of the skin 
Ep - elasticity of the frame 
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Assign the following structural constants (NSC=6) 
SC(1,I) = c n 
SC(2,I) = C 22 
SCO, I) = D u 
SC(4,I) = D 22 
sc(5,i) = y- 
SC(6,I) 


5e. Mode Shape Equation in Cylindrical Coordinates (r, , z) 


r = constant (SNODC(3, 2, ISUR)) 


co5 ^ e ;/ 


Jnme 


2rr^yu ^ ^ 

= (ok j j Sin p< j oIk c/e 


where 


A 

H 


A - area of shell segment 
gp = lifp 0 
= 2 if p = 0 

2 q = 1 if q 0 

= 2 if q = 0 


Thi $ /IE Sulsts ( /) 


C gK [ ~ /,Q 





fr 
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6 a. Structural Type 6: Frame-Stiffened Orthotropic Shell Segment 

This structure type describes the motion of a frame-stiffened orthotropic shell segment 
with shear diaphram end conditions at the boundries. 

6b. Shape 


z 





6c. Surface Equations (Cylinder ical Cordinates (r,6), x)) 


r = constant - 
G = 1.0 
AJ = r 


Surface equation 
Geometry correction factor 
Jacobian 


6d. Natural Frequeny Equation 


The natural frequency must be determined by the lowest frequency solution of the shell 
matrix equation}"^' 1 = 0, where 


<*• n 






0 (. - angular length of shell segment in radians 
H and p - axial modal index 

i i 

q - circumferential modal index 
1 1 @ s *" density of the skin material 

b - radius of the cylinder 
r : xL - length of the cylinder 

i "IP * Poisson’s constant for cylinder material 


Ant> 
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Ss uO-^ 



^I 5 , 

UO-Y) 




^ S e j- Af 

40--O 




V 


- H's.Es, 


Uo-^ 



where Ag - cross-sectional area of load-bearing skin normal to axial direction. 


Ag - effective cross-sectional area of load-bearing skin normal to cir 
cumferential direction 


Ap - frame cross-sectional area 

Ig - moment of inertia of skin section normal to axial direction about 
s skin-frame centroid 

Ig moment of inertia of skin section normal to circumferential 
0 direction about skin-frame centroid 


I„ - moment of inertia of frame cross section about skin-frame centroid 

F e 

Lp - axial repeat length of frames 

L e - circumferential length of skin 

Eg - axial elasticity of the skin 
°s 

Eg - circumferential elasticity of the skin 

e 

Ep - elasticity of the frame 
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Assign the following structural constants 
SC(1,I) = c n 
SC(2,I) = C 22 
SC(3,I) = D n 
SC(4,I) = D 22 
SC(5,I) = TT 

6e. Mode Shape Equation 
r = constant 



A = area of shell segment 

<2 p = 1.0 if p 0 
= 2.0 if p = 0 


where 
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7 a. Structural Type 7; Rectangular Panel With Sine Series Mode Shape Over Specified 
Modally Active Regions of the Panel 

This particular surface was added to allow approximate modeling of a surface's modal 
motion by dividing the surface into modally active regions for each mode. The method 
was developed by a NASA contractor to approximate finite element determined mode 
shapes of the Space Shuttle payload bay structures. (Pope, L. D., et al. Space Shuttle 
Payload Bay Acoustics Prediction Study: Volume n, Analytical Model. NASA CR 

159956, March 1980.) 


. : 


7b. Shape 


xR 


|x reference plane 


-i. j | y reference plane 



region of integration 
over a subsurface of 
| 2 the master surface 


modally active region of panel 


•; I 

u, k 


fcj 


n 


dx - distance from x reference plane to modally active region 
dy - distance from y reference plane to modally active region 
xL - x length of modally active region 
yL ~ y length of modally active region 
xR, yR - length from panel origin to the reference planes 


M 


The above listed parameters are placed in storage for each mode of the surface. Those 
areas of the surface that are outside the modally active region are assumed to have 
zero modal deflection. Recall that the modally active region may change from mode to 
mode. The surface may also be curved in the z-direction as illustrated below. 


* 5 
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z 



where r is the radius of curvature (given as a structural constant) and dz is the offset of 
th circle center from the y-axis as indicated. 

7c. Surface Equations 

Flat: Z = 0.0 - Surface equation 

G = 1.0 _ Geometry correction factor 

AJ = 1.0 - Jacobian 

Curved: Z. = C r *~ — t)2 

6-C'Y/<r x -Y x y>-’' 

AT= 1.0 . 

xsi - (r a - 2,Js) 2 ) 1 

7d. Natural Frequencies 

The natural frequencies of this surface are given as data. 

7 e. Mode Shapes 

Translate the coordinates of integration x, y into the coordinates of the modally active 
region. 

xC = x - (xR - dx - xL): both flat and curved surfaces 
yC = y - (yR - dy - yL): flat surface 

= (r cos _1 (SNODC(3,2,IS)/r) + dy + yR) - r cos (y/r): curved surface 


\ 
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where xL, yL - length of the modally active region in the x- and y-direction 
respectively 

xR, yR - reference point for x- and y-directions respectively 
dx, dy - distance from reference planes to the modally active regions 

%(*//) * s»n (pin<Au) sm Ct^y// L ) /<*-t y 

a^ - combined mode shape normalization and amplitude factor such that 

f*\ n = 1 - / o 

h 

xL, yL, dx, dy, and a may change for each mode of the structure. If x or y should fall 

rH 

outside the modally active region for the mode, then y^(x, y) is set to zero. Also, y is 
the length along the surface of a curved door. 


7f. Summary of Program Variables Associated With the Surface Element Description 


ISUR 

ISTYP(ISUR) 

SNODC(MXS,3,NS) 

WM(1,MWM) 

WM(2,MWM) 

WM(3,MWM) 

SC(NSC,ISUR) 

SC(1,ISUR) 

SC(2,ISUR) 

BPQ(MX,NX,NSMX) 


BPQ(1,1,MWM) 

BPQ(1,2,MWM) 

BPQ(1,3,MWM) 


assigned surface number 
surface type 

array holding node points in the surface component 

coordinate system 

natural frequency of mode MWM 

modal index p of mode MWM 

modal index q of mode MWM 

structural constants for modal analysis 

number of modes with BPQ type data 

radius of surface curvature (-1.0 if flat) 

the factors for the calculation of the node shape 

are read into this array in the routine DATALD 

under section n. Structural constants. 

frequency 

p modal index placed directly into array WM 

q modal index 


OF POOR QUAUiX 

BPQ(1,4, MWM) - normalizing factor 
BPQ(1,5,MWM) - amplitude factor 
BPQ(1,6,MWM) - x-modally active dimension (xL) 
BPQ(1,7,MWM) - y-modally active dimension (yL) 
BPQ(1,8,MWM) - x-distance to x reference plane (dx) 
BPQ(1,9,MWM) - y-distance to y reference plane (dy) 
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8b. Shape 



The area of integration is indicated by the nodes 4, 5, and 6. 


8c. Surface Equations 


Z = 0.0 - surface equation 
G = 1.0 - geometry correction factor 
AJ = 1.0 - Jacobian 


8d. Natural Freauencv Equation and Structural Constants 


6 . 








where 
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tw-- 


t>y « 




E*h 3 


17.0 -Tt-fy') 

)L 


Evk ? 




CK 

12 


t)yy = t>x "lly + 2. ^K. 


and 


E E - 
X, y 


modulous of elasticity of panel in x and y directions respectively 
>Vy * P°i sson ' s ratio in the x and y directions respectively 
Shear modulus 
thickness of panel 
material mass per unit surface area 
length of panel in x and y directions respectively 


G - 
h - 
m - 
a, b - 


The coefficients of the natural frequency approximation are 

G, * !.SO(a • j>=\ Anti - } p>| 

Gjr/SOt *, §=l Anii •, 5 > I 

H| S |.2*t8 ; p- I <»,*■ ^ | _ ~ ^ ^ \ 

= 1.2*8 ; ?*- 1 Mb 6*0 - ^ ) ; a>l 
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Assign 




clu^Kx-V. l r3 
Oh ^5i<-*U sY 

SC(1,IS) = Dx 
SC(2,IS) = Dy 
SC(3,IS) = Dk 
SC(4,IS) = nTi 
SC(5,IS) = 

SC(6,IS) = m 


8e. Mode Shape Equations 

i 

i ' 

i . 

! %% C*,y) =(A P ( cpsh 0(P* X ) - cos(tt( P ^/^x) 

- Cfp(S(nKCir^p+14^')- Svr\(rr(p v vW)7))} 

• ( cosV\(tr(^+ Va) y ) - cos ( t r Ct,+ ' /v> ? V 

- “ ^(yC% "'•Vs-V/ )») 

5 / (W f*r) 


where M T = square root of the total panel mass and 


n* 

Rn 



i 

0420 

o.^z 

.y>c 

z 

0.C41 

/.oo / 

.*3*1 

23 

O.GC.I 

/.oo 

.*37 


*n is the p or q index. 

Wl x s X/A. 

r 7 s y/«» 

c 
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APPENDIX B 


PROGRAM LIBRARY OF SEA DESCRIPTIONS 

la. SEA DESCRIPTION Is EQUIVALENT ORTHOTROPIC RECTANGULAR PANEL 

Since experiments have shown the joint acceptance to vary little with end conditions, 
this description is valid for all equivalent panels with simply supported to fixed 
boundaries. 

lb. MODAL DENSITY EQUATIONS 

The modal density and average modal indexes for each band of interest are calculated 
by evaluating the equation 


where 

D x - bending rigidity of structure in section perpendicular to the x-axis 
D - bending rigidity of structure in section perpendicular to the y-axis 

D xy ‘ (D x x + D y y + 4Gh3/12) 2 

D - D D 
x y 

"\T - Poisson's ratio for x-direction 

A 

- Poisson's ratio for y-direetion 
G - material's shear modulus 
h - panel thickness 
^ - density of panel material 
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m, n - modal indexes 

XL, YL - length of panel in the x- and y-directions, respectively. 

Note that if the panel is isotropic, the natural frequency equation reduces to 



Assign (see also section Id) 

D x - WMH(1,1) 

D - WMH(1,2) 

J 

4Gh 3 /12 - WMH(1,3) 
x - WMH(1,4) 

- WMH(1,5) 

J 

h- WMH(1,6) 

XL - WMH(1,7) 

YL - WMH(1,8) 

An iterative procedure is used to calculate the number of modes in each band from the 
equation and to calculate the average value of the modal indexes in each band. 
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1c. TYPICAL JOINT ACCEPTANCE DEFINITION 

The joint acceptance must be calculated tor each random pressure field type held in the 
program library, if possible. 

o For the reverberant pressure field (pressure field type 1), 



<510 Q(x- x/ ) (k Cy-y^ ) 

)<C x-x') i<( y-y') 


9 o ^ att/ ^ 



5iA 


//irryN snfnjrx 

K Y L J V y<- 


/ 




where A - area of surface 
k - /C 


The analytical relation is 

~ VX(^/^ / * l/-^ C Yij yi~j &-0 


with 




m( 7 r 0 ^ 4 ))- ci/)(r(@- j)]) 


+ 


l 


- f Si(Tr(g + by + Si Qrr(§-'-i') \\ 

. . • . 

+ ! ( 7 — C-l) COS (TT £)') 
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o For the aerodynamic turbulence (pressure field type 2), 



exp^-o^y Ky | y-y'jl cos ( K y (y-y')') 


S\n^!M2L^ S\<s f frt Sin^ A-rry ^ Sin ^TTy '^j 
* dy'iAx'dyctx 

The analytical solution is 

= -jfL • Vr(/»,XJ-.>«X > &) • VX(o,yi-,ay ; Ky) 

iMHSJL’C 

# 

vr A(j )(/- (-if ByPt-rr^glcosrg 

' * ■■■..■ 4 

+ BOB (-O'* £>PL-~'K 03. SiA 7T $ 

4 CO) ■ ~ 
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o For a random amplitude plane wave field. (pressure field type 3), 


T e, __L Cos 

^ A5 0^) ~ fi*- 



x / k' y' 

§(cd-cj /S )+ J(cu+oO : L 


~QJ CasCs} Cx-x') 

Co 


CO$C e 

Cu 


V' 


m Try 

/L 


•+ J(o+6-/)J • Si (k 

S'A ( cky'olx-cAydx 

The analytical solution is 

= 4r VxCai,^^;©^ vre^/i-/^, 


where 


,\ 


VX(4;fi,CO,0^)= ^ ^ Cl - C- 0 ^ V 

" c^-r^ 


Mb 


= Cos(V) 




Id. SUMMARY OF PROGRAM VARIABLES ASSOCIATED WITH THE SEA 
DESCRIPTION 

WMH(NSEAC,NTOB) - Array of SEA constants that may be allowed to vary with 

frequency 

MD(NMS,NTOB) - Array of modal densities for each band of each master surface 

All SEA constants that do not vary with frequency may be backed into the first row of 
the two-dimensional WMH array. 

WMH(1,1) - D 

WMH(1,2) - D 

y 

WMH(1,3) - 4Gh 3 /12 
WMH(1,4) 

WMH(l,5)-7^ 

WMH(1,6) - h 
WMH(l,7) - XL 
WMH(1,8) - YL 

WMH(2,NOB) - m, average m modal index over band 
WMH(3,NOB) - n, average n modal index over band 
For SEA description type 1: NSEAC = 3. 

2a. SEA DESCRIPTION 2: EQUIVALENT ORTHOTROPIC WHOLE SHELL 

The joint acceptance of a whole equivalent shell with shear diaphram end conditions is 
given here in semiempirical form and applies to a reverberant excitation field only. 

2b. MODAL DENSITY EQUATIONS 

Hr - FI • O-l'TS -Jco 

- FI • 0-3 bco 

- F) • 0.25 bco 


«/c_ ' * Ci _ < 

• 0.°t < /./o 

> /JO 

J C u 
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where FI - 2*^j/./t 

H - length of cylinder 
t - thickness of cylinder 
C T - longitudinal wave speed in cylinder 
a - radius of cylinder 

DcO- bandwidth of interest normalized to the ring frequency 
CO - frequency, rad/sec 

2c. TYPICAL JOINT ACCEPTANCE DEFINITIONS 
For a reverberant pressure field (pressure field type 1), 

tJw') r @/3')(9rTA/Cl7r«.*2£) ) 

3>rf C^)p L ^r, /S A * ^ ** s 3CR.tp-n&) / 

WITH XL- = A 

j/L - 27TCX 




where a - radius of cylinder 
H - length of cylinder 
A - surface area of cylinder 
CO - cirtical frequency of cylinder 
k 

C Q - speed of sound in air 

- density of air 

e - density of cylinder 
cyL. 

AA C “ (0c.yu* * A 
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2d. SUMMARY OF PROGRAM VARIABLES ASSOCIATED WITH SEA DESCRIPTION 

WMH(NSEAC,NTOB) - Array of the SEA factors as a function of band center 

frequency 

WMH(1,1) • a 
WMH(1,2) - £ 

WMH(1,3) - t 
WMH(1,4) - g cyu X 

WMH(1,5) - longitudinal wave speed in cylinder 
MD(IS,NOB) - Array of modal densities 
For SEA description type 2, therefore, NSEAC = 1. 

3a. SEA DESCRIPTION 3: DIRECT DATA 

The joint acceptance and modal densities are known from some other source as data. 

3b. MODAL DENSITY EQUATIONS 

Modal density given directly as data for each band of interest. 

3c. TYPICAL JOINT ACCEPTANCE DEFINITIONS 

Joint acceptance definitions are also given as data in the order described in section 3d. 

3d. SUMMARY OF PROGRAM VARIABLES ASSOCIATED WITH SEA DESCRIPTIONS 

WMH(NSEAC,NTOB) - Array of the SEA factors as a function of band center 

frequency. 

WMH(l,NOB) - RJA(NOB) = J 2 (6J ) 

r c 

WMH(2,NOB) - RJARV(NOB) = J 2 (6J) rev 

I V 

WMH(3,NOB) - modal density in modes/radians/second 
For this surface type, NSEAC = 3. 
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APPENDIX C 

PROGRAM LIBRARY OF EXTERNAL PRESSURE FIELDS 

la. PRESSURE FIELD TYPE 1: REVERBERANT PRESSURE FIELD 

lb. SURFACE PRESSURE CORRELATION EQUATIONS 

C(^x-x' ; y-y' £-0 r Cx (y -V' > 

= Sin (" 

CyCv-Y')CS) - S\x>C KCy-y'^ 

KCy-y'l 

where the x- and y-directions are assumed separable and 
K =<D/c 

C = speed of sound in the fluid medium 

No additional constants need be assigned, so NPFC = 0 for this pressure field type. 

lc. GENERALIZED FORCE CALCULATIONS 

If the mode shape is given by equation, the joint acceptance is generally numerically 
calculated. If the mode shape is given by Fourier series, the joint acceptance with a 
reverberant field can be calculated analytically. Note also that the rectangular panel 
(surface type 2) has simple sin.sin mode shapes that can be analytically integrated. The 
program uses the analytical calculation method whenever possible to decrease computer 
computation time. 

mx Ox fax />x 

3 ;V> = £.£ L £ wtCp^x^cJ) vr( zX'/w 

F £ P 2 

Cl 
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where 


if i/j and i+j is odd, 

VX(t l S l lcj') - 0-0 

If i/j and ij is even, 


H 


=_! — — £ i (o/>(rr(g cm C ttC§ -* 


If i=j> 

VrC - -I 


ciA(jrC§+^)j — 

2ifr*g. L 

•f j_ r s\(jrc^^] + 

2ir§ 1 




4 


In all above, 


TV Z C^-^) 


_ (j-0” Cos C' Tr 


l 


'§ = tfw/rrc 


C l Ci (?) * *\ c/x 


and 


Q \ r?') : f ^LliL <^x 



2a. PRESSURE FIELD TYPE 2: AERODYNAMIC TURBULENCE 
2b. SURFACE PRESSURE FIELD CORRELATION EQUATION 

ccx-x'jy-y ', <^>) - CxC*-*' ^ C-yty-y', 

CxC X-XjCS)-- Kx | X-x'\Uos(k*(/'X' 

Cy(y-y',oS) : 'cxpj ~-Uyky Cos(<yCy-y')j 


Assign 


«,,«y 


correlation constants 


K *- K y 


factored wave numbers 


Ex(l,I) = C^ x 
Ex(2,I) = K x /K 
Ex(3,I) =0(' y 
Ex(4,I) = K y /K 


NPFC = 4 


! 


The correlation constants and the factored wave numbers can be varied to match the 
field. Only a small amount of data is available regarding near field jet and rocket 
noise. VIN requires the user to input these factors. As a point of reference, however, 
Cockburn and Jolly obtained the following average values for jet and rocket noise field 
impressed on the rocket itself. (1968 U. S. Air Force Flight Dynamics Laboratory 
report TR-68-2.) 


K = 0.382 K 

J 

C( x = 0.092 
0(y = 0.3125 
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TT^/i 3 bCO bCi) 


- _0C 0, >) 


W ) - ((^)(uf+ \f - 

!Xo)= (c**+0(©/oV 0 l - 



Q & to/ 7TC * 


If i=j, then 

VEGAW)* Ai^t^ije^CcSW0 

+ e>G) C-o'e'^^SMTT^ ^ cc< 



(((**- 0 ($/of +- ' ) 


2 


■P 1 * r 

‘1 
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with the x-direction parallel to the axis of the thrust and y perpendicular to the axis of 
the thrust and K = o^fc with c the speed of sound in the fluid medium. 


2c. GENERALIZED FORCE CALCULATIONS 

If the mode shape is given by equation, the joint acceptance is generally numerically 
calculated. If the mode shape is given by Fourier series, the joint acceptance with a 
pressure field of aerodynamic turbulence can be calculated analytically. 



/UK AX /n* AX 

1ZZZ&, A 


/ / 


P' 2 p ? 


n /H-J m 

>**) 


Note also that the simple rectangular panel (surface type 2) can be represented by a one 
term, where 

if i£j, then 



<*. k) 


= A ( A)Q -c-o x 

+ Si nTT£) 


and 






Zn'J *Xo 


+ *) 




C5 


zwayaw 


and 
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8 - 2 — - <* ( &/o)*( <* - o cm z + \ 

CiTT)*r?co 


C(j) = — * (§/J )( £*% 0 (§/jf * 

jir b6>) 


and the other terms as previously defined in this section. 

3 a. PRESSURE FIELD TYPE 3: RANDOM AMPLITUDE PLANE WAVE F IELD 
3b. SURFACE PRESSURE CORRELATION EQUATIONS 

C-Oc-x^ y-y'j cS) i Gc C/Cy 

Ck Cx-x'jcS) ^ Cos^^f-(x-x') COS 

Cy Cy-y't co) - 



rassn ensues sbsbegbsi . 


$ 


lC:4-., : >* • * 

ow AB‘ s 6 *.* ••'■'. :’•'» <* v ,j 
Oil" Ihuwiii \» y. ^ 

where c - speed of sound in fuild medium 

C*^ Q - frequency of wave 
0 - incidence angle of wave on surface 


A * 

EX6 i.xs'i s © 

so hPFc. * I 


3c. GENERALIZED FORCE CALCULATIONS 


Since the excitation is random, the program will require the calculation of the joint 
acceptance form of generalized force. If the mode shape description is by Fourier 
series, the joint acceptance can be analytically calculated in the following manner. 


/M* Ax Aix /lx 

A ^ (l cS ) = T£ ^ ^ ^ 
” p % r j' 


9 




dy'd 


dy d x 


0 


f^Tvr^ v ■ ; f 
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The integral for the progressive wave field becomes 


T&>> ^ f 4 ^ mHrj a.Mp'3' 



.£>& . 8«' s' 


P § P’ 3' 


• Vlc^p'^cJ) . \ccct,r,yL,cj) 


where 


if i=jj and i+j is odd, 


= o 


If i+j is even, 


VT G,±,l,v) s 2 JLin-C-^ Ce%TT§) 

7T 2 v . 


C^-g a )G 4 -a^ 




R, * JU*>S t rrc 9 * cos e 
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4a. PRESSURE FIELD TYPE 4: POINT FORCE EXCITATION 

This "pressure field" type allows a direct point excitation of the structure. While it is 
not a pressure field, it must have a surface uniquely associated with it to mesh with the 
general organization of the program. 

4b. SURFACE PRESSURE CORRELATION EQUATIONS 

FO ( x $ 

where 

Xo ~ *>>/£ coo/?t>io/rrs 

X* - X,y,£ CoaQfci A ATE- OP Fc>^CS APPLICATION) 

SC X* ' O J JF Xa ^ Xf 

- / , ZF K s x± 

CJ - FKEQUEOcy 


both in the surface compo- 
nent coordinate system used 
in the mode shape definition. 


u 
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mz ■■ : 


4c. GENERALIZED FORCE CALCULATIONS 

The force description can be either deterministic or random. For deterministic 
excitation, the generalized force squared is 

/ Off (f* V 1 -- /F(X f) tS) / *• ■ & \><i ) 

where mode shape of structure at point Xp . 

A modified generalized force is required in the calculation routines in the form of a 
joint acceptance with an associated Sp b ^): 

- 9XC*s)/a z 

where A is area of the surface to which the force is applied. 


The /FCX§ iS £* ven * n the data 98 the external pressure, Sp^ (tS) 

Random excitation simply requires using the expected value of /FCx tl cS)l . 


CIO 


APPENDIX D 


PROGRAM LISTING 




ORIGINAL PAGE 1ST 
OF POOR QUALITY 


1DR1A 12/14/83-19:11(42,) 


vehica l interior noise prediction 


1 INTERACTION ANALYSIS OF PROBLEM OF THE ENCLOSED CAVITY TYPE. 

TWP r n nr T C TM A C r* T T I n/n I .oni CT A n T A a t TUT r. nr- . • a rum riii-iirpn 


. C* ANO TESTED on the UNIVAC 1108 AT THE MARSHALL SPACE FLIGHT CENTER 

TM UIIMTC -J Tl I C Ai D A UA A fcl A . \I C T C Ann Ann T M A n u u » Hi; n n r t t TT T i— 


FOR MSEC WITH S. GUEST AND T. NESMAN TECHNICAL PROJECT OFFICERS. 


12 • Q *4*4 4444 444 * 4 * 444 444 44444 4444 * 44*4 444 4*444 4 4*4 4444444444444444 * 44:4 

' 1 I .AT I , I .HAT M » 


COMMON/ AREAS /R0 ,C0, VOL, PREF ,PI 


IN-5 


initialize constants 

T A LI T U r II ,C « n ‘ 


OAT A NAMMC.NOO, NOM, NMO , Nb,DFQY,NI , ER/0 ,0,0, 0 ,0,0.0 ,0,0.0/ 

a . . 


C44444 ASSIGN FILE REFERENCE NUMBERS 4*444*4**4*4**444*44444 

L0--ia 

L 1 = 1 1 

I 9 - , ■} 


L3 = 13 


L7-1 7 


L9 = 19 


.1 1 =2 1 


L 1 3 =2 3 


L 15 =25 


LI 7=27 
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GALL D A TA L D ( MC ( IIVTYP) * A L ( I V ) * AC < I TM ) ,AC(IVN0DC) , a C(IV 


£ACI iSNOCC) t AC< ISOrG) , MC( II S V) tMCC IMASSU i, AC ( ISCI ,AC(IBPC ) 
- C MC * - rMC - MNSD A T ) y A C 

C AC < 12 N DAT ) f MC( 1 1 PF ), AC < I SPL ), A C < I F X ) , A C ( I G NODE ) , A C <1 0 TM ) , 


C CIIOTyP ) ,MC ( IIFE ) , NAM f NV t MX V, NSMX,NS f MX$ f NMS • MNS S , NT 0 9 »N AMMC , NN 


C aC . CIbNcWN) f MC ( IIFEN). ) 


If i MOP ( 1 ) .GT . 0 ) DATCD 


IF (MPROB#EO.O.AND*MOP( 1) .EQ.l i UN 


MNP = NFV 


NST )*2+NVT+NST*N$T+N$T*2+NST+NST*lO*NST*NTQBT+NST*NST+NN*3* 
J- 

QPEN CLlfFlLES , H t » A C CE SS - * 0 I R f t RECLrMR S ? RCDS -MNR , S T ATUS-UN ) 



IL=N$T*NAMT 


MRS=MAX0< ILt ILi ) 


MRS =M AXC ( MRS , IL ) 


33. 

. 84-. 

IF(NAMT.EQ.O) GOTO 3 
MNK ~3^NFV 


35. 

MRS. =N AMT 



D I R • ,RECL=MRS tRCDS-MNR tSTATUS=UN> 


MNR - N FV 


OPEN ( L 4 ,F ILE- • L4 * 


MRS -N AM MC T 


COPEN (L5 yFILE-«L5 • ,ACCE $S- • D I R f , RE CL =MR S f RCOS -MNR f S T ATUS^UN ) 


MRS -N AM T 


COPEN (Lo , FILE = *L6 f »ACCESS = f DIR* »RECL-MRS f RCOS =MN^ t STATU$-u^ > 

MWB 


MRS -N A M T 


COPEN (L7 ? FIL£r»L7* f ACCESS- f 0IR f t RE CL- MR S f RCOS -MNR t ST A TUS-UN ) 


MNR -4 ❖NFS 


OPEN i LB f FILE= f LS V T ACCESS- f OIR f f RECL=MR ; S,RcoS=MNR «STATUS = Uf|) 


MRS -NSM!*3 


0 PE N ( L 9 ,FILE = f L9« f ACCESS- t DiR f ,RECL=MRS*RCD-S =KNR ,STATUS=UN ) 


MRS -NT 0 ST 


1 z * 

DIR 

t i 

» * 






































































193 . 

UL«U__ 

195. 
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ISTM-IL2 + 1 


10TH = IS0R G*3*NS 
H>0 R G=..10 TM-» S a .3.a N CQ 
IVr4aDC=IOORG + 3 *NOO 


IV0RG=IVTM+3*3*NV 


IGN0DE= Iv* Nv 
T U.'J M T " T GN HO E * N E 

» W II “^ wtr^ortr w f T» 

IW.N±IWNMC*NAM 



— 


183. IWM-IRMN+NV*NAM 

iflu. t um n - t^m + taw <; mv 


135. ISPL = It»MO+ 3*NMO*NOO 



IBND«IM-I0NDUN*NTOB*2 


89. 
on t 

IAMN-IZM+NSMX 

TRDO'T AMW+M _ 


91 » 

ISPLTr IBPQ+MX*NX*NSMX 



IFlNe.NE«0)MCP = INAM-/N6*il*N V 

aula ax s anq ^ a v 

CALL I Ai L0C( hC, IL 3 ) 


IIV0LC-IISURC+MXS*N5 

IIVTYP-IIOCM+MXSANQO 


IINDPN=INM+NMS 


IIFEN-IIFE+NMS 


CALL DATAL< MC « I IVTYP ) iAC ( I V ) ♦ AC( I VTH ) , AC< IVNODC) t AC( IV 


CAC«ISNOCC),AC(lSORG),MC(iISV) f MC(IMASSU)»AC<ISC) ? AC(I3PQ) 


CAC( IZNDAT ) , MC (I I PF > t AC < 1 SPL > » AC ( I EX) » ACdGNODE) f ACIJOTM) 


EdIOTYP >,MC< IIFE ) r NA M t NV , MX V , NSHX f NS i MXSf NHS t HNSS fNTOB »N AM M C , mn 


C AC (1 BN OWN ) » MC ( IIFEN) ) 


CACCIW4 ) f MC< INM) , IPRE , AC ( I VNOOC ) f AC ( IQNODC ) , ACIISNOOc> 


CMC < 1 1 ST YP ) f ACt ISC ) r MC ( IIFE ) , N AM , N V» NMO f NOQ f NSMX , NM S f NS # MXV 


IL4 =4*MXM 


IWI =IL4 ♦! 


!IWUffW 


I W 3 - 1 W 2 *MXM 
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IS 

VC I-UUH QUALf 

ng 


CALL FR QC A L ( AC ( IwN ) , AC < I WM 0 ) , AC ( I WM ) , A C < I W 1 ) , AC ( IW 2 ) , AC C IW3 ) 


C AC ( I CEN IF ) , MC (INSOAT ) f MC( INS TOR) t MC( 1 1 VTYP ) , MC( 1 10 TYP ) 

t- 

tMXS , MB A NO ,C0 ,PI,NpS . NTOB. NSC f IoP t L8 f L9, MXMtLN) 


IFC NV • EC • 1 • OR. IP RE l 1 ) #E Q • 1 ) GOTO 10 


Ml =M-1 


CALL ALLOCi AC, IL4> 


IVLNM~IEIMTX*NQM#NOO 


I VAL -I V LNM1 ♦NAM*NMO 


IL4 A + N 1*N 


CALL D ALLOC ( UAC , I L4 A i 




248. 

+I-L4A 

IA=ID*N**2*4 



2 49. 

_4^R I IF ( 6 ) OFOY 

t CFQY 


250. 

rsx. 

LN = 1 

iF*.NP.eaa->NE^U- 

LCT-Q... 

■10.1 — 


CALL PRMCAL(AC( IVLNM1) f A C ( IB P 0 ) , AC ( I VM NPA ) f AC(IRMN),AC(IVLNM) 


L A Ci IONODC > ,AC< iWM) , AC < ISTM > ,AC< IsORG ) t AC< ISNODC ) , AC< IWNMC) 


EMC(IIOTYP) ,MC( IISTYP) , MCC II VTYP) ,MCC IMaSSU) , MC( INM ) ,MC t I nSDA T) 


£ A C( I EX ) , ACC IPNMC) f MC ( 1 1 NO PN i , A C ( I A RE A ) , A C ( I AREAO ) ,NOM ,N00 ,NA M 


AC (IV) ,ACC IS C ) ,NSCfAC(iZMOAT),AC(IZM) , LN ) 
*PITE <6 f *)DFOY 


E AC ( I VLNM) ,AC ( IVLNM1 ) , A C ( I WN > , AC < I WMO ) f MC < 1 1 GEMO ) , A C ( I AREAO ) 


ELSANo ,MBANOf L16,L17,MC(II0PM0 ) ,MCP *NG , AC < I V AL ) t AC < ITGT )) 


CALL DFREE ( 0 AC , IL 4 A ) 


0 


NIP -0 


Nl-NTOB 


I F ( 1 1 • E 0 • 1 )N=N*S 


IL4 =N AMMC+NA M+NAM+NA M + NT Q 8 +N$*NA M* N + N *N V+N 1 +N 1 *N V ♦Nl P 


l:PNMC=IL4+l 


I VMNP A= IZ ANN ♦ N AM 


J 
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ICN -IR J A+NTOb 


I AN SS- 1 ANS +N 


I BN'S S - I ENS ♦■N i 




IF(NV.EQ.1.0R,1PRE(1) .EQ • 1 ) GOTO 20 


CALL ALLO C ( A C » IL5 ) 


IEIMTX=IVLNMO*NAM*NMO 


£ ) , NMO t A C ( IE I MTX ) , AC ( IPNMl ) ,MC (IINDPN ) ,NAMMC » AC ( IVLNM ) , A C( IV ) 


bliHlIil 


CALL FREE (AC ,Il5> 


C#*** CORRECT MASS STORAGE FILES 


CAlL PRMCAL( AC( IVLNMO) ,AC(IBPQ) , AC (I VMNPA > , A C(IRMN ), AC ( iVLNM) 

/ TllUA 1 


tAC CIqno DC J f AC ( I WM ) , AC ( IS7M ) f AC( I SORG ) AC ( I SNODC I , A Cl J WNMC > 


nviPVMi 


r.vn up*] 


r.TtV K irj.mi iu 


&HC ( 1 1 0 T YP ) f MCI IISTYP ) # M C i II VTYP ) , MCI IMASSU > , MCI INM I , MC I INSDATI 


EACCIEX ) ,AC( IPNMC) . MC l IINDPN I » ACC IAREA > f ACC I ARCAO ) »NOM # N00 »NaM 




rarara 


ijlFopiJlITSi 


C.AC (IV > »AC( I SC) ,NSC, AC (IZMDAt ) ,AC (IZM) ,LM) 


rAC(IZANN) ,MC ( INM) , AC (ICENTF » tMC( INSTOR ) tNS t NTOB,NAM,NSMX ,NMS 


IjIcFI 


iiafia 






CALL pRMCAL( AC ( IyLNMO) , AC ( IBPQ) t AC ( I VMNPA ), AC (IRMN ) ,AC( IVLNM) 
EAct”lCNODC?! ActlWM) t Ar ( I STM! ^AC ( I SORG )^ AC( I SNODC ) t A IyNMC ) , 


LMC( IIOT YP ! ,MC C IISTYP) , MC (II VTYP ) ,MC (IMASSU ),MC<INM),MC(lNSnAT) 


iMiJII: 


Fliftl 




CftCllEX > V ACC IP n mC ) t MC ( IINUPN ) , ACC IAREA ) , AC C IAREAO J f N0M f NG0 t NAM 




ncvirviTnm 


wJWmz WMTWmJWJz. V VS 


C,AC(IV),AC(ISC),NSC,AC(ICMDAT), AC (IZM) t LN) 

— ,& )NSMX- r NSMX- r MSMX 

WRITE (6 ,*)NSMX , NSMX , NS MX , NSMX 

> - C A L L MO L PRM ( A C ( IW NMC ) , A CT I VMNP A) r A C ( -1 Z -A NN L r A - C -LIWN-)-, 

CACCIRJA ),AC( IWM* MC(INM) , A C ( I SPL ) , AC ( I CENTF > , MC ( 1 1 ST YP ) 




riapiw 




L Nam »NV *N $ * NT0S ,AC ( I ZmDA T ) , LB AND .MB AND »L 4 . L8.L9 t L 10 ) 


CONTINUE 


IFCIlfEQ.l) CALL C A LC ( AC { i AN S> ♦ AC C I ANSS > * A C C I BNS > , A C I I BNSS ) 


CAC< IVLNM) tAC ( ISP l) • ACC IRJA ) f ACI IZM) ,AC( I CENTF ),MC { INSTOR ) # NV 
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CL8,L9,Ll0 t I0UT , ACCISPLT) , MC ( 1 1 ST YP > , NS T ) 


lavlBalllMI 


liffSI Mars 


Ip (II • EC. 1) CALL OF CALC C AC( IANS) , AC( I AN SSI 


i j mwm TwriiDii 


CWF, WI , AC( IVLNM) , AC( ISPL) , AC( IRJft » »A; ( IZM) , AC (ICENTF ) ,MC(INstOR ) tN 


L V0L|R0«C0 f PIf NST, L7 , L8 , L9 , L 1 0, IOUT ,B W , AC ( ITBND > > 


CALCULATE THE REVERBERATION TIME 


EACdtfMNPA ),AC(ICENTF J , NA M , N TOB ,LB AND , MB AND f N S ,R0 , CO , VOL ,BU , NPR OB N 




$$ $$$*$* **** ****** $***$ * * * **♦♦**♦* 


C**«* TRANSITION TO SEA EQUATIONS 


65 CALL IFREE(MC f IL3) 


CALL FREE (AC , IL2) 


Ip M3AND.EQ • IHB AnD )GOTO 1QQ 


Riia 


ictsnsHmKi 




368 . 
— 16 SL. 
370 . 


IL4 r (NS^NTOB ) #2 ♦ NV* NMS#N TOB +N TOB *N V 


CALL ALLOC ( AC » IL4i 


IRJARV=tRjA*NS*nToB 


IANSS=ISPL*NTOB*NMS 


IL5=NMS*NT0B 


IMD=IL5*1 


CALL DALL0C(DAC f lL5A) 


CALL HFREQ ( AC I IR JA) , AC( I SPL 1 » A CC l C ENTp ) ? AC (i AREA ) 


irxnrFi 


EACi 12 N DAT 1, MC( IIOTYPi , MC 4 IIGEMO) f MC< II SV) f D AC (IC 




ESS ) ,AC( IEX) f MBANDf AC (IW M H) t MC (INSDAj) f HCC INSTOR ) ,MC(IISEAO) HC( I 


nvoa 




Oixiiro Wan : 


CALL SEAPRMC AC(IRJA) , AC< I R J AR V > , MC i IMD 1 


E MC(INstOR),AC(IzNDAT) * I GUT f NS f MC( IISEAO) ) 




EACCICENTF) ,IOUT ) 


110 CONTINUE 


111 CLOSE (I|STATUS=DATCD» 
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ORIGINAL PAGE m 

0F naRQUAuiv 


1 . C »»»»»»»»»»»»»♦»»»»»**»**»♦»«*♦»»»»♦»»»»»»»»♦♦»♦»»»»♦♦*♦* »»♦*»»»»»»»»♦♦ * 

2. SUBROUTINE OATALO C I VTYP * V , V TM , VNOOC ,VORG, 

3. ♦NM.ISTYP t AREA.STM.SNODC»SORG»ISV.MASSUR.SC.BPQ»ISURCM. 

4. *IV0LCM,CENTF,NST0R.NSDAT,2M0ATA,2NDATA,IPF,SPL.EX,GN0DE. 

5. » 0TM»0N0DC.noP6»ApEA0«I6£M0V.I0CM»ISEA0«I0TYP f IFE. 

6 • *NAM,NV,MXV,NSMX,NS,MXS,Nm$ , MNSS .NT OB .NAMMC , NN ,NSC, 

7 . »N0M.MX,NX.HFE.WMH.NM.N00.NSEAC.NPFC .NAS .BNOWn »IFEN) ____ 

8. COMMON MC(1>.AC(1) 

9, COMMON /AREA1/I0P.M0P(4) . IPRE 14 > »IN »IOUT 

10. 

11. 

12. 

13. 

14. £ NSMT.MXT.NXT .NAMMCT .NS E ACT 

15. COMMON/AREAS/NPRQB .NPROBN .MT A PE .NT APE .LB AND .MB A NO . I HB A ND 

16 • C0MM0N/AREA6/NM0.NG.DFQY.NI ,ER 

17, COMMON/ ARE A7/ Wl .WF.NWc . 

16 • COMMON/AREA8/RO, CO, VOL.PREF.pl 

19. C0MM0N/AREA9/FAC.PSI.DPI.DN.UP 

20. DOUBLE PRECISION F AC ( 57 ) ,PS I ( 60 ) , DP I, DN .UP 

2 1. DIMENSION IVTYP(NV) »V«NV)«VTM(3.3.NV). 

22. *VNODC(HXv,3,NV),VORG(3.NV),WM(3,NSMX), 

23. »ISTVP(MS).AREA(NS) , STM ( 3 .3 , NS ) .SNOD C ( MX S , 3 . NS ) . 

24 • ♦SORGC 3, NS!, ISV (NS) ,M ASS UR (MNSS * NMS ) »SC(NsC,NS) ,BPQ( MX, 

25 . PNX.NSMX) . ISURCM (MXS .NS ) «IVOLCM(MXV . NV ) .CEN TF ( N TnB ) .NSTOP(NMS) 

26. DIMENSION NSDA T (NMS ) .2MDATA (NT OB ) ,S PL (NTOB > ,2ND ATA ( NTOB , NS ) , 

27. £ uHH(NSEAC,NTOBl.EX(NPFC.NMS) tNM ( NM S ) , GNQCE ( NN. 3) . OTM t 3.3.NOO). 

28. £ ONoOC(MXS»3yNOO),OORG(3»NOO>tAREAO(NOO>»IGEMOV(2»NCO)» 

29. 6 ISEAO(NMS).tOCM(MXS,mqq).IOTYP(NOO).IPF(NMS) .IFE(NMS) 

30. £ ,8NDWN(NT0B*2)»IFEN(MFE) 

31. CHARACTER»SO TITLE 

32. CHARACTER*75 S TITLE 

33. CHARACTER»10 UN 

34. DATA DPI/3. 14159263589793D0/.UP. ON/ l.QOOOOOSDOtO. 999999500/ 

35. INP~5 

36. I0UT=6 

37. PIS3.1415926 

38. INS5 


COMMON/ ARE A2/LQ.L1 ,L2 ,L3 , L4 ,L5 .L6.L7.L8 ,L9 , LID. L 1 1 , L 12 . Ll3, 

£ L 14. i 15tLlfe.L17.L18 

COMMON/ ARE A 3/2ER0* EPS. BW 

COMMON/A RE A4/NFV.NFS.NPFCT .NTOBT .NVT.NST.mXVT .MXST.NAMt. 


39. RE AD ( IN. 5 ) TI TLE 

40. 5 FORMA T ( A8C ) 

41. READdN.lOSTITLE 

42. 10 FORMA T ( A 75 ) 

43. WRITE (I0UT,15)TITLE 

44. 15 FORMA T| * 1* , A8Q ) 

45. WRITE (TOUT «20)STITLE 

46. 20 F0RmAT(5X»A75) 

47. C»*»* A. OPTION SELECTION 

48. REAC( IN.*) IX 

49. READ(IN,»)IOP 

50. READ( IN»*)MOP 

51. READ ( IN. *) I PRE 

52. RE AD ( IN. * ) NPROB .NPROBN ,MT AP E, NT APE 

53. UN; 'UNKNOWN* 

54. IF ( NPROB .EC.O. AND. MOP (1 ).EQ.l )UN=*NEW* 

55. 0PEN(L0.FIlE-*L0».ACCEsS = , DIR V.RECL =4 0, RCDS =6 0, STATUS =UN ) 
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IFINPROB .EQ.OGOTO 21 

Li 

REAOILD»IR INTAPE.NFV.NFS ,NP FCT ,NTOB T ,NV T,NS T »MX VT, 

£ HXST,N A MT t NSHT.MXT .NXT .NAHMCT .NSEACT «MPA«NSA 

IR= l*NPROB 

R E AD t L O * IR)NN,NS.NMS,MNSS.NAS t HXS .NSMX » NSC.NV.MXV. 

£ NAM, NT0B, M FE, MX ? NX t NsE AC, NPFC, NWS ,NOO,LBAND*MB AND, IHBAND.RO, CO 

fcVOL.PREF. ZERO. EPS. BW 

C**** 8. SIZING PARAMETERS FOR NEW OATA FILE 

2JL. R EAD ( IN.*) IX 

IFIIX.EO.O) GO TO 25 

REAOI IN,*)NFV .NFS .NPFCT ,NTOBT ,NVT ,NST ,MXWT . MXST v NAMT 


£ NShT.MXT, NXT. NAHMCT, NSEACT 
25 CONTINUE 


C**** C. RANGE : FREQUENCY DOMAIN 

REAOIIN,*)IX 

IFI IX.E0.O)GOTO26 
READIIN, »)LBANO. MBAND ,IHBAND,BW 
C***» D. RANGE : OESCRETE FREQUENCY 
26 READIIN,*)! 



IfIIX.EQ.D) G 0 To 3q 


READIIN, *)WI,WF, NWS 

30 

CONTINUE 

C**** 

£ .TOLERANCES 


C**** 

C**«* 


c**** 

45 


READIIN, *)IX 
IFIIX.EO.O) GOTO 


READIIN,*) ZERO.EPS 

c ontinue 

IFINPROB .EC.O) GO TO 40 

WRITEI6,*)NTAPE,NFV»NFS,NSEACT,NN,NS,NHS.NWS 


F. MATRIX SIZING PARAMETERS 


REAul j N , * ) I X 
IFIIX.EO.O) GO TO 45 


RE AO I IN,*)NN,N$»NM$ ,MNSS ,N A S , MXS , NS MX ,NSC , N V , MX V , NA M, NtOB 
EMFE,MX,NX.NSEAC,NPFC 


G* MULTIPLE CAVITY PARAMETERS 
RE AO I IN, * ) lx 


9 

9 

5. 

6. 

IF I IX .EC.C) GO To So 

READIIN, *)NAMMC,NOO,NOM,N MO ,NG , DFQY ,NI,Er 


9 

9 

7. 50 

8. 

RETURN 

ENTRY DATAL 1 1 V TYP , V , V TM , VNO DC , V OR G , 


9 

ia 

9. 

10. 

♦ WM.ISTYP, AREA ,STM , SNODC.SORG ,ISV ,M ASSUR.SC ,BPQ , ISURCM, 
*1 VOLCM, CENTF ,N STOR ,NSDAT .ZMDATA ,ZND AT A , IPF , SPL ,E X ,G NODE 

9 

10 

10 

11. 

12. 

* otm.onooc,oorg,areao,igemov,iocm,iseao,iotyp,ife, 

*NbM,NV,MXV,NSMX ,ns ,mxs ,NMS ,MNsS»NTOB,NAMMC,NN,NSC, 


1C 

1C 

13. 

14. 

*NOM,MX,NX,MFE , WMH,NM,NOO,NSEAC,NPFC ,nAS ,BNDUN,IFEN) 
DO 51 1=1, NMS 



51 ISEAO ( I ) -0 

IFINPROB. EQ.O) GOTO 55 


C*********** READ FROM MASS AND PLACE INTO MEMORY **************** 

lR=NPt?OB 

R? ADI LI'IR ) VNODC,VTM,VORG,IvTYP,ONODC,OTM,OORG, IOTYP, 

£SNO DC,STM,SORG .ISTYP.V. AR E A 0 , A R E A , I GE Mp V , I S V , HA S SUR . NSP A T, CENTF 

£» IFE , ISE AO.GNOOE ,1 OCM ,1 SURCM, IVOLcM , BNDWN 
DO 54 1=1, NS 







54 NS TOR 1 1 ) =NSDAT 


IF CI0P.E0.5)G0T0 55 


OF POOR QUALITY, 


READ(L2’IR)2NDATA 
30 53 i = l, N M S 


IR = NFS-»NSD aT(I ) 

53 READ(L8*IR> (SC(J, 

I ) ,J = 1.NSC ) 


C 4****** *«*****«« ******* ********* **************** ******* *********** 
55 CONTINUE 


C**** H. OPENING/VOLUME RELATIONSHIPS: IGEMOV 

RE AD U N„ * > IX 

IFCIX.EO.O) 60 TO 65 
DO 65 IX=1. 


REAOI IN,*) ISUR .IGEMOV !1 , 1 SUR ) , IGEMOV < 2, 1 SUR > 
65 CONTINUE 


C**** I. OPENING DESCRIPTION 
RE AD (IN* * ) I X 


IFCIX.EO.O) GOTO 70 
DO 70 IXrl.NOO 


READ(IN f *)I,IO TYP (I ) ,AREAO ( I ) , ( IOCM < J, I I ,J= I,MXS> 
70 CONTINUE 


C**** J. STRUCTURAL OATA FILE ACCESS AND STORAGE LOCATIONS 
READ! IN**) IX 


IFCIX.EG.O) GO TO 75 

RE AD IIN,*) I NS DAT ( I ) » 1 = 1 ,NMS ) 


READUN,*) (NSTOR(i ),I = I ,NmS) 
5 CONTINUE 


C**** K. GLOBAL NODE POINTS 
READUN, *>IX 


IFUX.EG.O) GO TO 80 
DO 80 I X -1 _ NN 


READjIN,*) I, (6N00ECI,J),J=1,3> 

continue 


C**«* L. SURFACE DESCRIPTION 
READUN. *>IX 


IF t IX «E0 .C ) GO TO 85 
DO 85 IX=1.NS 


RE AD (IN,*) ISUR,ISTYP«ISUR ) ,AREA I ISUR ) , (ISURCMC I , ISUR 
1) ,I =1,HX S) 

85 continue 
86 


IFCNSDATCI ) .EQ.O) GO TO 86 
IR-NSDATII ) 


READCL8'IR)NM<I ) 
86 CONTINUE 


C**»* H. MASTER SURFACE/SURFACE RELATIONSHIPS 
REAOUN,*)IX 


IFCIX.EO.O) GO TO 90 
DO 90 1=1, NMS 


RE AO IIN,*) IS, (MASS UR ( J,IS ) , J=1 ,MN$S ) 

90 CONTINU E 

C**»* N. STRUCTURAL CONSTANTS: MODAL ANALYSIS 

READUN,*) IX 

IFUX.EO.O)GOTO 95 
DO 95 I S UR = I , NMS 


IFCNSDaTIISUR) .EQ. OREAD I In,*) IS, ( CC( J,IS) ,J=1,NSC ) 
IR=NF S*NSTOR (ISUR) 
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179. URITE(LX2 f IR1BPQ 

13C . WRITE (L9*IR) ( (BPQ( 1 . J. I) . J= 1 . 3 ) . I = 1 .NSHX > 

181. 9s CONTINUE 

182. 00 94 I S = t , N M S 

133. IFINS0A7IIsT.EC.Q!G0T0 94 

..1 8 4. IR=NSDAT(IS)+NFS 

185. REA0«L8*lR) (SC(J.IS), J=1,NSC> 

l afe » 94 CONTINUE 

187. C***9 0. STRUCTURAL MODAL D*TA 

188. NFE0S=0 


.... . IF (NSDATUSUR ) - 


R 

R_ 

R 


REAOIIN,*) (BPQ(l,J,I),J=l,9) 
. 97 3PQ< 1. 1,1 )=EPQ ( 1,1. I)»2.»PI 


NM(ISUR)-NINT ( SC ( 1 , IS UR ) I 
• IR=N$TOR(ISUR l 


00 96 

96 IFEIII 

191. r£AD(IN,*)Ix 

_192s iF(lX.EQ.n) GOtO 101 

193. READ* IN»*)NFEDS 

194. MNR=NFEDS 


MRS=6*MFE* 2*NSMT+NSMT*3*MFE 

0P£N(L18.FILE=«L18»,ACCESS=«0IR • #R ECL="R$ , RC DS=MNR . S T A TUS=UN ) 


Mr A X = • 1 »*MFE I**. 5* 1.5 

N hA X-MMA X 

C*** ASSIGN CORE STORAGE ' ~ ' 

IF < MOP 1 4 > »N£.l *IL=MFE*HFr+NSMX»3»MFE+vMAX+NMAX»MMAX»NHAy*HFE 

£ ♦MFE*MFE 

IF ( MOP* 4) .E Q . 1 >IL=MFE-»HFE + HFE-»HFE*NSMX*3*HFE 


CALL ALLOC * ARK ,ILI 
iOlrlifl 


ID2=ID1*MF£ 
ID3=I02*MFE 
I VM= ID 3* MF E 

tSN-IVm 4 MF£ 

IX1 = ISN-»NSMX*MFE*3 

I X 2= I X 1 ♦ MM A X 

IY=IX2*NMAX 
ITK=IY*MMAX*NM AX 


DO 99 1=1, NMS 

RE AO ( I N. * 11 S ,_IFE * I $ > , NFEN , $ Ll , S L2 

IF* IFE(IS) .EQ.c>G"0T0 99 

READ (IN ,* ) (IF EN t J ) , J = 1 , NFEN ) 

C*** TEMPORARILY USE STM ANO SORG TO TRANSLATE F.E. GLOBAL COORDINATES 
C* »» TO SU RFACE LOCAL COORDINATES 

READ* IN,*) (STMa f K,IS),K = l,3l,SoRG( 1,I S > 

_R EA D_( I N,*) (S TM t 2 ,K , I SJ , K = 1 , JJ , S 0 R G ( 2 , 1 S ) 

RE AD ( IN , * ) * STM ( 3,K , IS ) ,K = 1 , 3 ) *S ORG f 3 , IS ) 

CALL FEDAT( IS.NFEN,NFEDS,NS,NMS,IFE,IFEN,ISTYPtSTMt SORG, UM , NS TOR 

£ BPC, MOP, AREA , AC *ID1 » »AC*ID2>,AC*ID3),AC*IVM),AC*ISW) , AC (I~X 11, 

£ ACt 1X2) , AC (ITK ) , ACIIY) ,Mx, NX , MFE ,N SMX . SL 1 . SL2 . MMA X ,NMA X ,L9 .L 12 

£ * L 13 I ' 

99 CONTINUE 


■aenaaianii 






101 CONTINU E ; 

C**«* p. STRUCTURAL CONSTANTS: STATISTICAL ENERGY ANALYSIS 

RE AD(IN . * 1 1 X 

IFdX.EO.OJGOTO 110 

0 0 110 I S = 1 . NMS 

DO 109 I=1,NSEAC 
DO 109 J=i,NTOB 


109 WMH(I,J)=C.o 

RE AD (IN » * ) ISUR,ISEAO(I$UR) 


IF(NSDATdSUR) ,NE.O>GOTO 110 
IF (ISEAO(ISUR) .EQ.OGOTO 11C 



DO 135 NOE = 1 , N TOB 
RE AD 1 I N, * ) K , (UMH (J ,K ) , 

J = 1 ,NSE AC ) 

105 

IF(WMH( 1,N0B) .LT.O.O) 
continue 

GOTO 106 

C**ST ORE DAT* IN APPROPRIATE 
106 IR=NSTOR(IS) 

MASS STORAGE FILE 

WRITE (L13*IR)WMH 


RE AD ( I N , * ) IX 
IfdX. EQ.OGOTO 11 


VOLrO.G 
DO 115 1=1. NV 


READ ( IN, *> NVOL .IVTYP (N VOL ) ,V ( NVOL ), ( IVOLCM i J,NVOL) , J= 1, MXV ) 


. 115 

CONTINUE 

» c**** 

R. j COUSTIC CONSTANTS 

1 

RE AC ( IN,*)IX 

) 

IFdX.EQ.O) GOTO IZO 


_JL2.c. 

c**** 


c**** 

c**** 


c**** 


130 


c**** 


C**** 

136 


CONTINUE 

S. ACOUSTIC MODAL DATA 
READ(IN,*)IX 


NOT YET ALLOWED BY PROGRAM 


T. SURFACE/VOLUME RELATIONSHIPS 
REA D(IN,»>IX 


IF (IX.EQ.0 )GOTO 130 
DO 130 1=1. NS 


READ(IN,*) ISUR,ISV (IS UR ) 
CONTINUE 


U. SURFACE ABSORPTION 
READ(IN.*)IX 


IFdX.EQ.OGOTO 136 

DO 13 S 1=1. N S 

READt IN,*) ISUR*IX 

IFdX.EO.C) GOTO 135 

RE AO (IN,*) (ZNDATA CJ.ISUR ) , J=1 ,NTOB ) 

CONTINU E 

IR = 2*NF V + NPR08N 
WRI TE(L 2* IR> ZNDATA 


V. STRUCTURAL DAMPING 
RE AD ( I N, * ) I X 


IF (IX.EO.O) GOTO 14 
DO 140 1=1, NMS 
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294 • 


RE AO ( I N * * ) I SU9 .IX 

235 . 


IE ( IX.EQ.OI GOTO 140 

286 . 


REAOIIN,*) ( 2MD AT A ( J ) .J=l .NTOB ) 

287. 


IR=2*NFS+NST0R (I ) 

288. 


WRITE ( L8 * I R ) ZMDATA 

2 89. 

140 

CONTINUE 

290. 

C **♦* 

W. EXTERNAL SOUND PRESSURE LEVEL: FREQUENCY QOMAiN 

291. 


REAO(IN,*)IX 

292. 


IF ( IX .EQ.OGOTO 145 

293. 


00 145 1=1, NMS 

29ft • 


READ(IN.*)ISUR.IX 

295. 


IFIIX.EO.O) GOTO 145 

296 . 


READI IN.*) (SPL (J) ,J=1 .NT08) 

297. 


IR=3*NFS+NST0R (I ) 

298. 


WRITE (L8*IR) SPL 


299. 145 CONTINUE 

300. C»»** X. EXTERNAL PRESSURE FIELD DESCRIPTION CONSTANTS 


301. 

,302_. 

303. 

304. 

30S • 

336_. 

307. 150 CONTINUE 

30e. C»»»* V. BAND CENTER FREQUENCIES 

309. READ ( IN , * ) I X 

310. IEdX.EO.OI GOTO Ire; _ 

311. REAOIIN,*) (CENTFINOB >»N0B=1,NT0B) 

312. DO 15 5 1=1. N TO B 

313. CEnTF (I ) =CEN tF (I)*2.0*PI 

314. 155 CONTINUE 

315. C**** 2. REVERBERATION TIME 

316. C*»»» 

317. READI IN* *) I X 

318. IF ( IX .EC .0 ) GOTO 156 1 

319. C**** GENERATE COORDINATE SYSTEM TRANSFORMATION MATRICIES 

32 0. 156 CONTINUE 

321. lFCIPREm.EC.ll GOTO 1110 

_322_. CALL TRANS 

323. CALL OTRANS 

22 4^ C **»» OUTPUT THE INPUT DATA 

325 . 11 1C CONTINUE ' “ 

326. IF I NPROB .E Q .0 ) NPA=0 

327. IF (NPROB .EQ .0) NSA=0 

J 28. DO 1200 iSsi.NMS 

329. IF ( fjSDA T( I S ) .EC .0. AND. NS TOR (IS ) .NE • 0 • AND .NPROB .NE .NPROB N )NS A=NS A* I 

j 3 0 • 1200 CONT IN U£ 

331 • IF (NPROB .NE .NPROBN )NPA=NPA-»1 

332. IR = 1 

"3,33. MSI TE I LO f I R )NT APE »NFV .NFS .NPFCT »NTOBT »NVT ,NST»MXVT»MX$T, 

334 • £ NAMT,NSMT,MXT,NXT,NAMMCT,NSEACT,NPA,NSA 

3:35". IR = 1 ♦ NPROBN 

336. URITE ( LO t IR)NMtNS«NMS.MNSS.NAS.MxS»NSMX .NSC .N V . MXV . NA M. NTOB . 

337. £ MFE.MX.NX. NSE AC »NPfC*NUS v NOO .lBAnD.MBANO. IHBANO.RO »C0. 

336. £VOL>PREF, ZERO, EPS, ew 

339. DO 1300 I$=2,NMS 

3 40. IRrl* 1Q*NST0R I IS) 


READ ( IN, * ) I X 

IF ( IX .EQ .0 I GOTO IkO 

00 150 1=1, NMS 

REAPtIN ( *)ISUR,IPFIISUR) 

IF I IPF(ISUR).EQ.C) GOTO 150 
READ ( IN.*) (EX(J.ISUR) «J=1.NPFC) 
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341 • 


1FI NSTOR(ISl.NE.O)WRITE(LOMR ) ISTYPJ ISl.NMI IS_) .NSC. 1PF (I_S l_.L 4 t.ANJL- 

342. 


t , MBAND.IHBANO.NSEAC.ISEAO ( IS ) 

343. 

1300 

CONTINUE 

344. 


WRITE C6,^)NV,N V.NV.NPROB.NPROBN 

345. 


IR=NPROBN 

346. 


WRITE (Ll’IR )VNOOC.VTM,VORG.IVTYP,ONOOc»OTM,OOR6»lOTYP, 

347. 

SSNOOC tSTM.SORG .ISTYP .V* ARE AO .AREA .1 GEMOV .1 S V .MA SSUR .NSTOR.CfNTF 

348. 


C.IFE.ISEAO.GNOOE.IOCM , ISURCM, IVOICM .BNOWN 

349. 


DO 157 I=1.NT0B 

35C* 


CENTF ( 1 1 =CE NTF Cl J/2./PI 

351. 

157 

continue 

352. 


IF C MOP C 2 ) .E Q .0 ) CALL 0 INPUT 

353. 


J=3 

354. 


00 158 1=1. NOO 

355. 


IF ( lOTYPCI ) .E0.3)J=1 

356. 

158 

CONTINUE 

357. 


00 160 1=1. NV 

358. 


IF! IVTYPII ) *EQ . 3) J = 1 

3S9 • 

160 

CONTINUE 

36 C. 


IF ( J.EQ . 1 ) CALL FCTCAL 

361. 


DO 165 1=1 . NTOB 

362. 


CENTFcI)=CENTFCI»*2.»PI 

363. 

165 

CONTINUE 

364. 

1111 

RETURN 

365. 

c ******* ************ ********************* ******** ******** ************** * 

366 « 

C ******* ************ «*«******************«***4***9*********************4 

367. 


SUBROUTINE OINPUT 

368. 

c* 


369. 

C* CARO INPUT is REFLECTED TO OUTPUT DEV I rE 

370. 

C* 


371. 


DIMENSION INC ( 22) . VNC < 7 ) 

372. 


WRjTE CIOUT, 100 ) 

3 13* 

c 

LOAD AND OUTPUT DATA SET 41. 

374. 


IR = ! 

375. 


REAOCLO’IR) (INC (I ) .1=1,17) 

376. 


WRITE (IOUT, liO) (INC (I), 1=1, 17) 

377. 

c**»* 

LOAD AND OUTPUT DATA SET 42. 

378. 


WpITECIOuT, 120) 

379. 


DO 25 .]=1, NPA 

38 c. 


IR= 1* J 

381. 


READ ( LO*IR ) (INC(I) .1=1.22). (VNC <I), 1=1. 7) 

382. 


WRITE CIOUT, 130) J 

383. 


WRITE Cl OUT. 14 0) (INC < I ) .1=1 .22 ) , C VNC C 1 1 ,1 = 1 ,7> 

384. 

25 

continue 

385. 

c#*** 

LOAD AND OUTPUT DATA SET 43. 

386. 


WRITE CIOUT, 150) 

387, 


DO 50 I S = 1 , NS A 

388. 


IR= l* 10* I S 

389. 


READCLO’IR) CINCCI ) ,1=1 .9) 

390. 


WRITE CIOUT, 160 )IS 

391. 


WRITE C I OUT, 170 )C INC Cl ),I = 1,9) 

392. 

SO 

CONTINUE 

393. 

C«*^***** FORMAT STATEMENTS 

394 . 

ICO 

FOR MATC55X,* DATA FILE INDEX V54X ,♦******♦*********• ) 

395. 

lie 

F0RMATC26X, 'TAPE SIZING: DATA SET 4 1.V/61X , »NTAPe - , ,l3/6lX f 

396 . 


C*NF V - * , I 3/ 6 1 X . 

397. 


♦ •NFS - ’.I3/61X *NPFCT - * .13/6 IX , *NTOBT - •.I3/61X, 
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♦ *NuT 

♦ ♦mxvt 

♦ «NSMT 
♦•NAMMCT 


* .13/ 61X « *N ST 

* .I3/61X, *MxST 

*.t3/61X, *hXT 

’ , I 3/ 6 IX , *N$f ACT 


* » 13/6 IX f *NAMT 

* . 1 3 /6 ly . * Nx T 

* » 13/6 IX » * NPA 


- * * I 3/6 IX 

- * , I 3/6 1 X 

- *» 1 3/6 iX 


DATA SET A 2 


120 F0RMAT!//26X, *BASIC PROBLEM PARAMETERS 
130 FCRMAT1/34X, •PROBLEM NUMBER - *,!*> 


140 F0RMAT(61X, *NN - *,I3/61X, 

♦ *NS - * , I 3/ 6 IX , * NMS - *.I3/61X. 


* *,I3/61X, »MXS - * ♦I3/61X, »NSmX - • , I3/61X * *NSC 


WRITE(I0UT,801 ) 

B01 F0RMATC45X, ^STRUCTURAL / ACOUSTIC INTERACTION ANALYSIS*/ 

A44X, * ♦♦♦♦♦^♦♦♦****$3$**##$***^#**********>********* ) 

WRI T E<tOUT,802> 

802 FORMAT! //21X, * INPUT DA T A » / / 27X , • A . OPTION SELECTION*// 30X, • A1 
♦ANALYSIS: ICP*) 


£*♦♦♦ A. OPTION SELECTION 
WRITE CIOUT, 803 >IOP 


803 F0RMAT(/34X,»IQP r »,I3> 

yRITE ( I OUT , 806 ) MOP ( 1 ) , MOP ! 2 > , M0P!3 ),M0PI4) 

806 FORMAT! /3CX, * A4, SPECIAL OPTIONS: MOP !4 ) »// 34X » 

♦ *_CA TAL OG HASS STORAGE*. 2 3X.* - * . 1 3 /34x . * SUPRE S S INPUT MIRROR 

«23X»* ” **I3/34X, *USE EXPERIMENTAL CAVITY DAMPING*, 12X, * - *,I3 
♦ 34X » * USE SHORT BPO CALCULATION ON NEW F .£ . nATA - • 


RE! 1 ) , IPR E ! 2 ) ,IP 
RECALCULATED DAT 


14 

*S 


♦,I3/34X,*GENER ALI2E0 FORCE *,14X,» - *,l3) 

WRITE ( I OUT , 808 ) NPROB ,NPROBN,MT APE , NT APE 

808 FORMAT I/30X,*A6. DATA ACCESS AND S T OR AGE * / / 34X , *NPR OB 

♦•NP b OBN - «. I3/34X. *MTAPE - * . I3/34X ,*NTAPE - *,1 3 

C**** B.NEW DATA FILE SIZING PARAMETERS 

IFINPROB.EO.O.ANd.NPROBN.EQ.O) 6q To 9J0 

WRITE (I OUT, 809 JNF V , NF S .NPFCT , NTOBT , NV T , NS T , mX VT , MXS T, 

L NAMT,NSMT,MXT,NXT,NAMMCT ,NSEACT 


FORMAT! » 1* , 26X , »B • 


900 

C**«* 


♦ * NFS - 

♦*NVT - 

♦*MXVT 


♦ *NSMT 

♦•nammct - 


CONTINUE 
C. RANGE 


* . I 3/ 6 IX , *NPFCT 
•.I3/61X, *NST 
* * I 3/ 61X , *M XST 


*,I 3/61X 
* I3/61X 


DATA TAPE S I ZI NG * / /6 IX , * NF V - *,I3/61X 

•NPFCT - * .13/6 IX « *NT0ET - »,I3/6lX, 

»NST - * ,13/6 IX , 

*MXST “ * , 13/6 IX , • NAMT - *,I3/61X 


FREQUENCY DOMAIN 
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aHJT.ELAl.fliILi.BlO. ) . L BAN-DjitEAN,0..t.IHB A N D.j_aM . _ 

810 F0RMAT(8(/ ),27X,*C. RANGE :FREQUENCY *//6lX , *LBAND - *,I3/6lX 
♦ • M B A. N D - * , I 3/ 6 IX . • I HB AND - *. 


C**+* D. RANGE : OELCRETE FREQUENCY 

IF ( 10P. F Q . 2. OR. TOP. EC. 4 >WpItE flOUT.ail >UI .WF.NWS 


811 FORMATISl/^TX.’D. RANqE : OESCRETE FREq. , //61X t »TI 
t E11.S/61X,*WF - *,E11.5/61X»*NWS - •. 


C+*** E. TOLERANCES 

WpITE(I0uT,8 1 2) 2ER0.EPS 

812 pORMAT(8( / ) »27X,*E. TOLERANCES *//56X f *ZER0 - *,E12.5/56X 

♦ •EPS - * ♦ E 1 1 • 5 ) 


C **♦* F. MATRIX SI2ING 

WRITE (I OUT, 8 13 >NN,NS,NMS ,MNSS ,NAS ,HXS ,NSMX , NSC , Ntf , M XV , nA M, NTOB 
♦MFE ,MX,NX,N$EAC,NPFC 

813 F0pMAt( 8(/),27X»*F. MATRIX SI2ING»//fcl X , *NN - » .Ir/felX. 

♦ •NS - ’, I3/61X, »NM S • *,I3/6lX Jt *MNSS - • ,I3/61X, *NAS 

♦ * , I 3/6 IX » *MXS - • .I3/61X. »mSMX - » . I3/61X . »NSC - *.I3 

♦» *NV *,l3/6lX,*MXV *,I3/61X, »NAM - *,I3/6lX, 

♦ •NTOB - * »I 3/ 6 IX , *MF£ - *.I3/fclX. 


13/6 1X,’NSEAC - ’,I3/61X 


C**** G. MULTIPLE CAVITY PARAMETERS 
IF(NV.EQ.l) GO TO 953 


WRITE f I OUT, 8 J4 I NAMMC ,N00 , NOM ,NMO ,DFQY , NI , £R ,NG 
814 FORMAT! »1*.27X»«G. MULTIPLE CAVITY PARAMETERS»//61X 


MC r *.13/6 
- * » I 3/ 6 


£ E R - * , F 10.5/ 6 IX , *NG 

940 CONTINUE 


C *♦*♦ H. OPENING/VOLUME RELATIONSHIPS 
WRITE (I0UT»8I5) 


815 F0RMAT(8</) t 27X,*H. OPENING/ VOLUME RELATI0NSHIPS»////39X, 
C* IGEMOV 0PENIN6*,5X,*V0LUME «TAIL> VOLUME IHEAD1*/49X 


£•******* *» 5X »* ♦♦♦♦♦♦♦♦♦♦♦♦* *************•) 

00 o45 1=1, NOO 


9 45 WRITE (I OUT, 8 16 11, IGEMOV (1,1 ), IGEMOV (2,1 > 
816 F0RMAT(50X,I3,13X,I3,13X,I3 ) 


C**** I. OPENING DESCRIPTION 
UffITE(I0uT,817) 


817 F0RMAT(8(/),27X,*i. OPENING OES CR IP Tl ON »//4 IX , • OPEC 
♦ •0PENING*,9x, ’OPENING V41X, •NUMBER’ ,11X ,*AREA0*,12) 

(ING*, 9X , 
(. 

♦•TYPE* ,6X/41X, •♦♦*♦*♦♦• ,7X, ************ ,8X , ******** 
DO 950 1=1, NOO 

>•) 

WRITE (I OUT, 818 1 I , ARE AO ( I ) , IOT YP ( I J 
818 F0RMAT(42X.I3.9X,E11.5,9X,I3) 


950 CONTINUE 

WRITE ( IOUT , 819 ) 


819 F0RMAT(//40X,*0PeNING NUM BER • /40X ,»♦***♦*♦*♦*****• ) 
DO 953 1=1, NOO 



W R I TE ( I OUT » 820 1 I 

l FORMAT !/ , 27X, I3tl7Xt*N0DE*/33X, •ORDER NUMBER ♦, 7x , *XC *, 3 

♦13X , * 2C * /38 x» * ♦♦♦*♦ ****** ********** ********** 

A***** • ) 


□o 951 J=1,MXS 

IFCIOCMI J,I ).EC.0)G0T0 951 


WRITE 1 1 OUT, 8211 J.IOCMI J,I > ,0 NO DC (J, 1,1 ) ,ONODC( J, 2, I) 
♦ ONODC ( J, 3, 1 1 
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512. 

513. 951 CONTINUE 

5 14 . WRI TE < I O UT . 2 2.3J 

515. 228 FORMAT! //42X,»0TMX’,11X,’0T MY ’ ,11X , # 0TM2 * , 1 IX , • OORG * /4 2X , • ***** ,, 

t 516 . A 1 1 x . * *»»»* . 11X .»»»»»» T 1 IX. »»»»»* > 

517 • DC 952 K=l, 3 

5J 4 • URITEU0UT,822)0THtK.l.I).0TMfK.2.I >.OTMIK.3.I> .OORG<K f I) 

519. 822 F0RMATI39X,E10.2,5X,E10.2,5X,E10.2,5X,E10.2) 

520. 952. C ONTIN UE 

521. 953 CONTINUE 

5 22. C*»»* J. STRUCTURAL DATA ACCESS AND STQRaGE 

523. WRITE (IOUT, 823) 

, 52 4. 8 2 3 FO rMAtJ 8(/>, 27X.»J. STRUCTURAL OATA ACCESS AND STORAGE « //49X. 

525. *»PR0BLE~M’/49X, ’ SUrF ACE */49 x ,* NUMBER ’, 1QX , ’NSDAT •, UX ,’ NSTOR ’ /49X , 

526 • ».»»*♦*♦*., 9X, » »»***« » 11X. »»»**»♦ > 

527'. DO 954 1=1, NMS 

52 8. WRITE < I OUT, 824 >1 ,NSDAT ( I ) ,NSTOR « 1 1 1__ 

529. 824 F0RMAT ( 50X t I3,13X,I3tl3X,I31 

530_. 954 CONTINU E 

531. C***» K • GLOBAL NODE POINTS 

5: 3 2 . WRITE (I OUT, 8251 

5:33. 825 FORMAT ( 8|/),27X,’K. GLOBAL NODE POI NTS * // 4 3X , ‘NODE * /42X , •NUMBER * . 

534 » »12X,*X*.12X,*Y*,12X,*Z*/42X ,»****♦*» ,8X ,’*»»»»♦»»»»». 3x . 

535. *•**********•, 3x, •**********•) 

S 3fe. DO 955 1=1, NN 

537. WRITE (IOUT, 826 )I ,GN0qe< I»1 > »SNOOE(I ,2), GNODEI 1,3) 

538 ij, 82t_F0RMATjL4 3X_, 1 3 . j JX .E 11 . S . 3X . El 1 . 5 . 3X .E 1 1 .5 > 

539. 955 CONTINUE 

54 0. C »»*» L . S URFAC E DESCR I PTION 

541. WRITE (I OUT, 6277 

. 54 2. 827 FORMAT(8t / 1.27X,*L. SURFACE DESCR IP TI ON ’/ /4 lx , ♦ SURF aCE » . 9X . 

543. **sURFACE* , 9X, * SURFACE*/ 41X f ’NUM8ER * , 1 1 X »*AREA ’ , l2X, 

5 44 , ♦ *TYPE */4 IX ,’»»»»**»«, 7X , ’»»«»»»*»♦* » ,8X ,»»»♦♦»♦♦, | 

545 • " DO 956 1=1, NS ' ” ‘ ~ ~ ' 

546.. WRITECI0UT, 82 fll I . ARE A 1 1 > , 1 ST YP < 1 1 

547. 828 F0RMAT<42X,I3,9X,E11.5,9X,I3> 

546. 956 CONTINUE 

549. WRITE (IOUf, 829 1 

550. 829 F0RMATC//5X, ’SURFACE NUMBER */5X , *************** •) 

551. DO 953 1=1, NS 

552. IFt I STY PH ) .EQ.OIGOTO 958 

553.” ' WRITE (IOUT, 830) I 

554 , 8 3C FORMAT! /,27X, 13, 17X, ’NODE*/ 38X, ’OR PER NUMBER «, 7 X , » xC », 13X ,* YC ’ . 

555. *1 3 X t * ZC"* /38 X , * ***** ****** ********** ********** ****: 

556. a****** ) 

557. 00 957 J=1,MXS 

558 . WRITE! IOUT .831) J . I SURCM ( J , 1 1 .SNOOC ( J . 1 .1 1 , SNODC < J. 2. 1 1 . 

559 . *SNOoC< 3, I ) 

56q. 8 3l_ F0RMATC39X,I3,5X,I3,5X,E11.5,5X,E11.S,SX.E11.5) 

56 1 • 957 CONTINUE 

56 2 • URITEtlOUT. 832) 

56 3. 8 32 F0RMATI//42X,. STMX’,1 IX, ’STMY’,nX,’STM2 ’,1 IX,’ S0RG*/42X, ’****♦ ,"' 

__56 4 . AlUX.il! ***** . 11X.» »»**«.! IX, »»*«».) 

565 . DO 9 58 K = l,3 

5_66_. WRITE (I0UT,833)STHCK ,1,I),STMC K, 2,I ) ,STM<K, 3,1) , SORE < K « I ) 

567. 8 33 FORMA T( 39X ,E 10 .2 , 5X ,E 10.2 ,5 X • El 0.2 »SX,£l0.2) 

568 . 958 CONTINUE 


U H 
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_56 9. C***» M » MASTER SURF 

570. WRITE (IOUT, 834 ) 

_57 1. 834 F0RMATt8l/ ).27X,*M. MASTER SURFACE / SURFACE RELATI0NS*//46X 

572. **MASTER SURFACE* ,11X, ‘COMPONENT SURFACE */46 X ,•**************•, 1 IX 

573. ♦ » ) 

DO 959 1=1, NmS 
WRITE<I0UT,e35)I,MASSUR!l 


835 F0RMAT(/ 5 lX,I3,24X f 13) 

DO 959 J=2.MNSS 

WRITE (IOUT, 836) MASSUR(J,I) 

836 FORMA T( 78X . 1 3 ) 


959 CONTINUE 

C**** N. STRUCTURAL CONSTANTS 


IF ( IOP.EQ .5 ) GOTO 961 
WR I TE ( I OUT , 837 ) 


837 FOR M AT(9(/),27X,*N. STRUCTURAL CONSTANTS*// S5X • ‘SURFACE * ,6X 
A ‘CONSTANTS */55X, •*****♦*• ,6X, ************* ) 


MOO AL ANALYSIS 


B 


839 

960 

961 
C**** 


c**** 



WRITE( IOUT » 838 ) I.SCll.I) 
FORMA T( /S7X.I 3.8X.EI1.5) 

DO 960 J=2,NSC 
WRITE <IOUT .639) S CtJ.I ) 
FORMATC68XtE11.5> 

CONTINUE 

CONTINUE 
0. STRUCTURAL MODAL DATA 


NO OUTPUT HERE 


P. STRUCTURAL CONSTANTS : STATISTICAL fNfRgY ANALYSIS 


IF ( M3AND.EC.IHBAND )GOTO 969 
IF ( IOP .NE • 1 ) GOTO 969 


WRlTElIOUT *843) 

FORMA T< 8 ( / ),2 7X,*P . STRUCTURAL CONSTANTS i SEA*//1CX T 

£ ‘SURFACE* , 20 X , ‘SEA CODE */ 1 OX ,•*♦***** * »2qX , ********** ) 
I R 0=0 


DO 969 IS=1,NMS 

IFt ISEAO(IS).EC.Q) GOTO 969 

IR = NS TOR ( I S ) 

I F ( I R .EO.lROlWRITEt I0UT.1844) IS.IS-1 
IF ( IR.EO.IROJGOTO 969 
READ(L13‘IR)WMH 


WRITE(I0UT,844)IS,ISEA0fIS) 


1844) IS.IS-1 


SAME AS FOR SURF *CE 


969 

C**** 


C**** 


FORMAT!//, 12X, 13, 2EX, 13) 

FORMAT ( 5X, * CATA FOR SURFACE - *,I3. 


DO 969 N0B=1»NT0B 

WRI TE ( I O UT » * ) ( WMH ( J ,NOB ) ,J=1,NSEAC) 
CONTINUE 


0. VOLUME DESCRIPTION 
WRITE ( IOUT *845 ) 


F0RMAT(8(/),27X,‘Q. VOLUME DESCRIPT I0NV/41X, ‘VOLUME* , 26X 
A • wOLUME * /4 IX, • NUMBER ',1 OX.* VOLUME * , HX , ’TYPE* 


A/4'1 X, •****♦*• ,SX, ************ ,8X, •**♦****• ) 
DO 970 1=1, NV 
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'WRITE !I0UT. a 46) I.VlT). TVT YP ! I ) 
846 F0RMAT!42X,f3.9X,E11.5,9X,I3) 
970 CONTINUE 


WRITE 1I0UT, 847) 

847 FORMA T ( //SX,» VOLUME NUMBER */SX , *♦»»»*»»»♦»»»»*) 
DO 973 1=1, NV 
WRITE 1I0UT.848) I 


848 FORMA T ! / $, 27X » I 3, 17X , »N00E •/ 38X , ’ORDER NUMBER* ,7X, • XC * ,13X,*YC 

A13X. •ZC*>3SX, * ***** ****** ********** ********** 


A****** ) 

DO 971 J=1,MXV 


WRITE ( I OUT f 849 ) J.I VOLCM I J, I) .VNODC ( J,1,I ) , VNODC! J, 2,1 ) 

»yNOOC t J, 3,1 ) 

849 FORMAT! 39X , 1 3 , 5X , I 3 ,5X, E10 . 2, 5X ,E10 .2 ,5X ,E 10.2) 

971 CONTINUE 


WRITE 1I0UT, 850) 

8S0 FORMA T( v /42X, * VTMX* , llX , • VTMY • , 11X , *VTMZ* , 1 IX ,* VORG •/ 42X. ****** 


*11 X, •*♦***, 11X ,•*****,! IX, •****») 
DO 972 K=l, 3 


WRITE! IOUT, 851 )VTM(K ,1,1) ,VTM(K ,2 , 1 ) ,VTM»K , 3,1 ) »VORG(K,I ) 
85 1 FORMAT ! 39X.E10.2 .SX .E1Q.2.5X.E10.2 . 5x .E10.2 ) 

972 CONTINUE 

973 CONTINUE 


C**** R. ACOUSTIC CONSTANTS 

WRITEII0UT.852) RO,CO,PREF 


852 F0RMAT|8(/) t 27X,*R. ACOUSTIC CONST ANTS *// 34X , *R0 - *,E11.S/34X 

**C0 - *»E11.5/34X»*PREF - * E7.2) 


£**** s. ACOUSTIC MODAL DAjA 
C***« 


c***« T. 5 URF ACE /VOLUME REaLTIONSHIPS 

C**** 


WRITE 1I0UT, 854 ) 

854 FORMA Ti8!/),27X»*T. SURF ACE/ VOLUME REL ATIONSHIPS •/ ///39X 


659. 

660. 

6 *ISV SURFACE • ,5 

£ 5X , • **************** ) 

X, ’ADJACENT VOLUME*/ 49X, •*****♦*•, 

661. 

662. 

DO 979 1=1, NS 
WRITE1I0UT, 855)1, ISV1I) 


66 

66 

3. 

4. 

855 F0RMAT!50X,I3.13X,I3) 
979 CONTINUE 


66 

66 

5. 

6 . 

IF ! IOP.EQ ,5 ) GOTO 111 
IF1M0P!3).E0.DG0T0 981 


66 

66 

7. C* 

6. 

*** U. SURFACE ABSORPTION 
WRITE !I0UT, 856 ) 


66 

67 

9. 

0. 

856 F0RMATI81/),27X,»U. SUR 
DO 981 1=1. NS 

FACE ABSORPTION*) 

67 
67 

1. 

2. 

WRITEII0UT.857) 

857 F0RMAT!/42X,*S URF ACE * ,7 

X, ’FREQUENCY *,12X, 'LOSS FaCT0R*/42X, ****** 


* * , 7X , ******41**** * , 9X ,•**************** *y J 
URtTE! IOUT, 85S) I .CENyF 1 1 ) , Z ND AT A 1 1 , I ) 


8 58 FORMAT! 44X , I 3 , 9X , E 1 1. 5, 9X , E16 .5 ) 

DO 980 J=2,NT0B 

WRITE !IOUT, 859 ) CENTF ( J ) .ZNDATA ! J,I ) 
8 59 F QRMA T| 56X ,E 1 1 .5 ,9X ,E16 .5 ) 


980 CONTINUE 

981 CONTINUE 


IF ( MOP! 3 > • NE • 1 ) GO TO 982 
WRITE IIOUT, 860) 











860 FORMA T t.8_(jLL, 27.X.«.*-U..«. ..C.A V_IUL. 
A‘FREqUENCY (HZ ) * ,9x , 'LOSS F 

A ****************** ) 

ACTOR •✓5CX^***«^*P*i'^9X 

DO 982 I=1,nToB 

WRITE (IOUT. 861) CEN TF (I).2N 

IDATAII.1) 

861 F0RM4T(/5QX,EU.5,9X,E16.5) 
982 CONTINUE 



' V. STRUCTURAL DAMPING 

WRITE (I0UT»862) 


► F0RMAT(8(/) t 27X,'V. STRUCTURAL DAMP ING* //42X, ‘SURFACE * t 7X, 
A *F pEQUENCY * . 12 X . 'DAMPING ( C/ CC ) ♦ /42X » ♦»♦♦♦»*» * «7X. 

A ****************** ) 

Ron 


IF ( IR.EC.IROIWRITE (I0UT,l863)1 ,1-1 
IF( IR.EQ.IROIGQTO 984 


READ ( L8 * IR ) 2MDATA 

WR I TE ( I OUT .863) I . CEN TF ( 1 ) . 2MOAT A ( 1 ) 

863 F0RMATI/44X,i3,9X,E11.5,9X,E16.5> 

186 3 FORMAT(SX.«D^Ta FOR SURFACE - '.13. » SAMt 
IRO-IR 

DO 98_3 J=2,NT0B 

TF,i 


A < FOR SURFA 


U. EXTERNAL $PL : FREOUENCY DOMAIN 

W R I TE ( IOUT. 86 5 IPREF 

I FORMA f (8(7) ,27x,*W. EXTERNAL S PL '// 32X , ‘SURFACE ', 13X, 
A'FReOUENCV (HZ) SPLIOB. R EFL '.E16.S.' ) */ 32X ,«»»♦»♦♦♦* . 

A ************ , 1 7X , • *********** ) 

IRO- 


867 

985 

986 


C**»* 

C**** 


DO 986 1=1, NMS 
IR=3*NFS*NST0R (I ) 


IF t IR, EO. I RO)WRITE( IOUT, 186 fc> 1,1-1 
IFC IR.EQ.IROIGQTO 986 


READ(L8'Ir) spl 

IRO=IR 


WRITE (I OUT, 86 6 ) I ,CeNTf 111 ,SP(.(1 > 

i F0RMAT(/34X.I3«l7X,E11.5.17X.E11.5> 

i FORMA T( SX.'OATA FOR SURFACE - *,I3,» SAME AS FOR SURFACE - 
DO 985 J = 2 » NTOB 


WRITE(I0UT,867) CEN TF I J ) , SP L( J ) 
r FORMATf 54X.E11 .S.17X.E11.5) 
i CONTINUE 

i CONTINUE 


> X. PRESSURE FIELD CONSTANTS 

I 


WRITE(I0UT,868) 

I FORMA T ( 8 ( / ),27X,*X. EXTE R NAL PR ESSURE FI E LD CONSTANTS* 
C//1CX, ‘SURFACE’ ,20X, 'PRESSURE FIELD CONSTANTS •/ 10X, 
£********• t 20X , ' »*»»*»**»*»»»**♦♦»»»***♦»« ) 


DO 987 I S = 1 ,NM S 
WR ITE C I OUT , 869 ) IS 


IFlIPFtlSI .EQ.OIWRITEUOUT ,186 9»IS,NSDATIIS) 
IF ( I PF 1 1 S j • E Q * 0 > GO TO 987 
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869 FORMA T I 3X • I 3 ) 


1869 F0RMATI5X, ‘DATA FOR SURFACE 

- *,I 

j 

,♦ 

SAME AS FOB FILE SURFACE 


WRITE<I0UT.873)IeX<J,iS »,J=1»nPPCJ 

870 FORMA TH PE 11.4) 

987 CONTINUE 
155 CONTINUE 


HI CONTINUE 
RETURN 


C **** *************** #*#*»*«****«* «**»**«* ft****************************** 

SUBROUTINE TRANS 


C ******* ************ ************* ******** ft****************************** 

DO 1000 ISUR=1,NS 


IF I ISTYP(ISUR) • E Q • 0 ) GOTO 1000 
I A z I SURC M ( l.ISUR) 


I9 = ISURCM< 2» I SUR ) 
IC«ISURr Ml 3 , 1 S UR ) 


7 

7 

57. 

58. 

SORGI 1,ISURI=GN00EIIA,1) 
SORGI 2, I SUR )=GNOOE 1 I A, 2 ) 


7 

7 

59 

6q 


SORGI 3 f ISUR »=GNQtOE( I A, 3) 

X A lrGNOOE 1 I B , 1 j rSO RG 1 1 , ISUR > 


7 

7 

61 

62 


XA2=GN00EIIB,2I:S0RGI2,ISUR ) 
XA3=GN00El IB, 3) -SOrGI 3.ISUR ) 


7 

7 

6 3 

64 


YAlrGNODElIc* 1) -SORG 1 1 , ISUR > 
VA 7 =GN0DE(IC,2).-S0RGI2,ISUR ) 



YA3=GN0DEIIC t 3)-S0RGt3,ISUR » 
ZA 1=1 XA2*YA3-X A3*YA2> 


ZA2=< XA3*YA1-XA1*YA3) 
ZA 3=1 XA1*YA2-XA2»YA1 ) 


XA = IXA1#*2-»XA2**2+XA3**2)**.5 
YAri YA1**2+YA2’M>2 -»Ya3**2)** .5 


ZA=IZA1**2*ZA2**2+ZA3*#2)**.5 

STMI 1 til I su R)=XA1/XA 

STMfl,2,iSUR )=XA2/XA 
STM I 1,3,ISUR)=XA3/XA 
STMI2.1,ISUR)=YA1/YA 
STHI2,2,ISUR)=YA2/YA 
$TMI2»3»ISUR)=YA3/YA 
STMI3,1,ISUR)=ZA1/ZA 
STMI3t2,ISURI=zA2/ZA 

STMI 3,3,ISUR>=ZA3/ZA 

DO 10 1=1, MXS 

XSGNOOEIISURCM (I t I SUR ) , 1 ) -SOR g 1 1 , iSUR) 

Y = GNODEIISURCH 1 1 ,1 SUR ) » 2 ) -S OR G I 2 » IS UR ) 

Z=6N0DEI ISURCM (I ,IS UR ),T> -S OR 6 I 3 , IS UR ) 

SNODC 1 1 , 1 , I SUR > = STM <i ,1 tISURM'X>STMIl,2,ISUR)*YiSTMI 1,3,ISUR»*Z 
SNODC 1 1 « 2 . 1 SUR )=STM 12,1 , ISUR) »X*STM 12 , 2 ,1 SUR ) «Y+STH I 2, 3, ISUR ) »2 
SNOOCII, 3, ISUR )=STM(3,1 ,ISUR)*XiSTMI3,2.ISUR)*YiSTMl3,3,ISUR»*Z 
10 CONTINUE 


1,1, ISUR 
2,1, ISUR 


STMI3,1,ISUR)=XA3/XA 
STMI 1,2,ISUR)=YA1/YA 


STMI2,2,ISUR)=YA2/ YA 
ST Ml 3,2,1 SUR ) = Y A 3/ Y A 


STMI 1,3, ISUR»=ZA1/ZA 
STMI2,3,ISUR»=ZA2/ZA 
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$ . 



797. 


STMI 3.3.ISUR>=ZA3/ZA _ . 

798. 

1000 

continue 

799. 


00 2000 NVOL-l »NV 

800. 


IA=IV0LCM< 1,NV0L> 

807.* 


IB=IV0LCM< 2.NV0LI 

eo 2 . 


ICxjVOLCMI 3 ,nV0U 

ea3. 


VORG 1 1,NV0L)=G.N0dpIIA,1 ) 

804. 


VORG 1 2. NVOL >=SNOO£ ( I A ,2 ) 

805. 


VORG( 3.NV0L>=GNQDEIIA.3> 

806. 


XA1=GN0DECIB,1 I^VORGll.NVOL > 

807. 


XA2=GN0QEI IB,2)-V0RGI2.NV0L 1 

80S. 


XA 3-3 NODE 1 1 8 » 3 > ;VORG 1 3.N VOL ) 

8 09 . 


YA 1=GN0DEI IC, 1 l-VORGl 1 .NVOL 1 

810. 


YA2=GN0DEI I C, 2 ) -VORG 1 2, NVOL J 

811. 


YA 3=6 NODE I IC, 3 l-VORG 1 3.NV0L > 

812. 


Z A 1=C XA2*YA3-XA3*YA2> 

813. 


ZA2=( XA30YA1-X A1*YA3> 

ei4. 


ZA 3= I XA1*YA2-XA2*YA1) 

815. 


XAr(XAl**2+XA2**2+XA3**2)**.5 

816. 


Y A ~ ( Y A 1**2 + Y A 2**2* Y A 3**2 ) ** .5 

817. 


ZA = I ZA 1**2. ZA2**2 4 Z A3**2 ) ** .5 

818. 


VTM(l,l,NvOL)=XAl/XA 

819. 


VTMI 1,2,NV0L>=XA2/XA 

820 '' 


VTMI 1, 3,NV0L)=XA3/XA 

821. 


VTMC 2, i.NVQL > = YA1/YA 

822. 


VTMI2,2,NV0L»=YA2/YA 

823. 


VTM»2,3.NV0L>=YA3/YA 

824. 


VTMC 3,1,NV0L)=ZA1/ZA 

825. 


VTMI 3,2,NV0L>=ZA2/ZA 

826 . 


VTMI 3,3,NV0L>=ZA3/ZA 

827. 


DO 23 I = 1 1 MXV 

828 . 


X = GNOOE 1 I VOLCM (I ,N VOL > , 1 > -V OR Gl 1 , NV OL ) 

829. 


Y=GNODE 1 I VOLCH II .N VOL > . 2 ) -VOR G ( 2 .NV OL ) 

830. 


Z'GNODE II VOLCM II .NVOL > , 3 ) -VOR 6 1 3 , NV OL > 

831. 


VNODC U » 1 .NVOL >=VTM ll.l ,NV0L>*X+VTM 1 1 .2 ,NVOL>*Y+VTM 1 1 . 3 • NVOL > *2 

e32. 


VNODC II, 2, N VOL )=VTM 1 2 .1 .NVOL ) *X +VTM 1 2 »2 *N V0L)*Y+VTM 1 2, 3. NVOL ) *2 

833. 


VNODC 1 1 . 3 » NvOL >=VTMI3,1 ,N VO L i*X 4 VTM I 3 .2 .NVOL) *Y + VTM 1 3. 3. NVOL ) *Z 

834. 

20 

CONTINUE 

835 . 

2000 

CONTINUE 

636. 

111 

CONTINUE 

837. 


RETURN 

838. 


SUBROUTINE OTRANS 

839. 

£***********»***«*«*#******************#*«*************•***************> 

840. 


00 1300 I $ U R = 1 .NOO 

841. 


IA=IOCMf l.ISUR) 

84 2. 


IB=IOCMl 2.ISUR) 

843. 


iCrIOCMI 3.ISUR > 

844 . 


OORGI l.ISUR) =G NO DEIIA.l ) 

845. 


ObRG I 2. 1 SUR )=GNODE 1 1 A .2 ) 

848. 


OORGI 3t I SUR ) = G NODE 1 1 A . 3 ) 

847. 


XA 1=GN0DE 1 1 B.DrOORGI l.ISUR > 

848. 


X A2=GN0D EIIB»2j “OORGI 2.ISUR ) 

849. 


XA3=GNODE(IB,3)rOOR6l3,ISUR > 

850. 


Y A 1 = GN0DE 1 I C» 1 ) “OORG 1 1 * ISUR ) 

851. 


YA2=GN0DE 1 IC.2 )-OORG 1 2. ISUR » 

852. 


YA 3=GN0DE IIC. 3) -OORGI 3, ISUR 1 

853. 


ZA 1= 1 XA 2*YA 3—X A3*YA2 ) 
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t 


f. } 


854. 

2 A 2=1 XA3*YA1-XA1*YA3> _ _ 

i .i 

; . . ' 

855. 

ZA3=< XA1*YA2-XA2*YA1) 


t ' <j 

856. 

XA=(XA1**2*XA2**2*XA3**2>**.5 

■ I 


857. 

YA = < YA1**2-»YA2**2+YA3**2>**.5 

l 

a- 

«{. 

8 $ 8 . 

ZA=(Za 1**2+Z A 2**2 ♦Z A 3**2 l ** .5 



659. 

OTMI 1, 1,ISUR)=XA1/XA 



e60. 

0TM( 1»2,ISUR>=XA2/XA 

{ 


661. 

OTMI 1,3.ISUR)=XA3/XA 

:• i 

* 

862. 

0TMI2.1.ISURISYA1/YA 


? 

863. 

0TM(2»2»ISURl=YA2/YA 

“"1 

' i. 


864 • 

0TM(2.3.ISUR)=YA3/YA 

* A 

i 


865. 

0TM( 3 , 1,ISUR)=ZA1/ZA 


} 

866 . 

OTMC 3,2,I$UR>=ZA2/ZA 



867. 

OTMC 3,3,ISUR>=ZA3/ZA 

{ 


868 . 

DiO 10 1 = 1, MXS 

• i 

• 

’I 

869. 

X=SNOOE( IOCM(I ,ISUfi).l>tOORG(i,ISUR ) 


f 

870. 

Y=GNODEC jOCM ( I .ISUR > .2I-00RGC 2. ISUR ) 


f 

871. 

Z=GNODECI0CMCI ,1 SUR 1 , 3 > -00 R GC 3 , IS UR ) 

■ j 

■ /•! 

872. 

ONQOC Cl , 1 , 1 SUR »=OTM ( 1 ,1 , ISUR > *X *OTM C 1 , 2 .ISUR » *Y*OTM 1 1. 3. ISUR » *Z 



873. 

ONODC (1.2,1 SUR ) =OTM (2,1 .ISUR > *X <»0TM C 2 , 2 ,ISUR >*Y*OTM C 2, 3, ISUR >*Z 

...» 

S . 

874. 

ONOOC (1,3, ISUR IrOTM t 3 r 1 . ISUR ) *X ♦OTM 4 3 •2.ISURI*V*0TM I 3. 3. ISUR )*2 

•: } 

i ' 

875. 

10 continue 

n 1 

.j 

87 6 . 

OTMC l,l.ISUR»=XAl/XA 


ii ; 

877. 

0TM(2»ltISURI=XA2/XA 


l ) 

878. 

0TM(3,lfISUPi=XA3/XA 

% t 

r ■ i 

879. 



g i 

880. 




831. 


Hi 

. . } 

«r . 

882* 


if 

§. ■; J 

; 883. 

OTM( 2,3,ISUR>=ZA2/ZA 


. *■ •... i- 

884. 

OTMC 3»3»ISUR!=ZA3/ZA 

H 

1 i 

635. 

1000 CONTINUE 

1 * 
t i 


886. 

111 CONTINUE 


j 

687. 

RETURN 


- * 

? 

888. 

C ************************************************ ******** ********* 



889 . 

subroutine: fctcal 

!j 

1 . ■ ■ : 

890. 

FACC1)=1.D0 


j : 

691. 

FA C ( 2 ) = 1 .0 C 

r -* 

•j 1 

892* 

00 4 J=2 ,56 

l 'i 

! 1 

893. 

FAC< J*1»=FAC(1 »*DFLOAT| J> 

* i. 

1:-. j 

894. 

FAC ( 1 > =F AC ( J-» 1 > 


i 1 

895. 

4 CONTINUE 

y~i 

? j 

!■ 1 

896. 

FAC ( 1 ) =1 .D 0 


; 1 

897. 

PSIC 1)=-. 5772 156649015329000 


f 

4„ ) 

898. 

DO 10 J= 1 , 60 


! 1 

899. 

PSII JirPSI (ll*l.D0/0FL0AT( J| 


M 

900. 

PSI(1)=PSI (J) 

; « 

mm 

’01. 

10 CONTINUE 


f 1 

s 1 

902. 

PSIC l)=-.5772156649015329 D 00 

n 

,• J 

903. 

RETURN 

A 

1 f 

904. 

ENO 



FTN 4282 IBANK 5803 OBANK 309 COMMON 

- ; i: 
r : 

s. % 


















original page 1 $ 
op poor quality: 


dLejjATj.juu 

12/14/83-18:33(16, ) 

_1 • SUBROUTINE F£ D AT ( I S .NFEN .NFEDS .NS .NMS .IFE . I FEN . 

2# 6 WM,NST0R,BPQ,M0P,AREA,01,02,03,vM.SN,X1,X2,TK, 

3. £ SL1.SL2,MHAX,NMaX.L9.L12.L18) 

4. DIMENSION IFE ( NMS ) , IFEN (MFE ), ISTYP C NS ) • STM ( 3, 3 , 

• _ £ WM( 3.NSMX ) .NS TOR I NMS I ,BPQ (MX ,NX ,NS MX > .MOP ( 4) t A 

£ D2(MFE) ,03<MF£),VMtMFE)*SN(MFE,3,NSMXI ,Xl(MMAX 
£ Y(MMAX.NmAX) 


PI=3.141S9 

C**** LOAD THE F.E. DATA FOR THF SURFACE 


IR=IFEIIS) 

REAOIL18»IR)NFES,NSM, IX. Dll I).D2(K) ,D3II»,I8=1, 


£ I I,VM< I 1,18-1 ,NFES ), 

£ (I,yM(l,I),((SN(K,J,I).J-l,NFES)»K-l,3)»I8 

C*** PROCESS THE F.E. OATA 

IR-NSTOR (IS) 

kIRITE ( L9 • IR ) UM 

ASSUME THE RESULTANT MOTION OF THE TRANSLATI 


C***** FREEDOM IS NORMAL TO THE SURFACE LET THE MOO 
OF THE LAR6EST TOTAL DEFLECTION OVER TH E _F I R 


ISTYP. STM. SORG. 
Y,MX,NX t MFE , NSM X 

NS) , S0R6( 3, NS) , 
REA ( NS ) • n 


),X2<NMAX) t TK (MFE) 


NFES ) 


MOTION OF THE TRANSLATI 


THE SURFACE LET THE MOO 
DEFLECTION OVER THE FIR 
WITH THE SURFACE ARE C 


F.E. NODES ASSOCIATED WITH THE SURFACE ARE 

1*0 

1.0 


ONAL degrees of 


E ASSUME THE SI 6 N 
ST MODE. ONLY THE 
ONSIOERED • 


) 

) 

DO 30 L=1,NFEN 
jrlFEN(L) 

) 

) 

A s A ♦ S N 1 J 1 1 » 1 ) * *2 
B = B-»SN( J,2, 1)**2 


C=C*SN( J,3,l)**2 
30 CONTINUE 


D=AMAX1< A,B,C) 
IF i A .EQ .0 ) IB- 1 


IF(B.EQ.0)IE=2 

IF(C.EQ.O)IB=3 


SGN=1.0 
DO 40 K - 1 , NSM 


DO 40 L- 1, NFEN 
J=IFEN(L) 


SGN=SIGN(SGN,SN(J,IB,K)) 

40 SN(J,1,K )-(SNIJ«i.K )»*2+SN( J. 2 .K ) »» 2+SN ( J . 3 ,K ) »»2) » *. S»SG 
C**** RENORMALIZE THE MODE SHAPE TO GEN-MASSrl.O 
DO 70 K - 1 , NSM 


Gm=Q.o 

DO SO L = 1,NFEN 

JrlFEN(L) 

50 GM=VM( J)»SN(J. l.K )»»2*GH 
GM=GM**.5 
DO 60 L=1,NFEN 


J=IFEN(L ) 

60 SN( J, 1,K)=SNIJ,1.K )/6M 

70 CONTINUE 

» TRANSLATE THE F.E. GLOBAL COORDINATES TO THE SURFACE COMPONENT 


COORDINATE SYSTEM 
DO 80 I- 1, NFEN 


jrlFENIII, 

Xp=Dl( JI-SORGI 1,IS) 


I 
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71. 

72. 

200 

73. 

C END 

74. 

c**«* 

75. 

C**«* 

76. 

C***« 

77. 

c*** 

78. 

c*** 

79. 

c*** 

30. 

1000 


— ..V-g.s Q.Z4 J>-SQR6< 2. IS ) 

ZP=D3< J>-SoRG(3,IS> 

Dl( JI=STMC 1 , 1,1 S) *XP*STmI 1 , 2 , IS >»YP*STM ( 1 . 3.1 S) «2P 

02 < J) =STM< 2,1,1 S)*XP*STM 12, 2, IS I *YP ♦ $ TH < 2 , 3 , IS ) *ZP 

0 3 ( J 1 = STM< 3. 1. 1 S)*XP*STM< 3. 2. IS >»VP*STM< 3. 3. IS )*2P 

80 CONTINUE 

SHORT METHOD OF BPG CALCULATION **************************** 


IF 1 MOP ( 4 ) • NE . 1 ) GO TO 1000 

DO 2 D O Krl.N SM 

DO 200 M=1,M X 

DO 20 0 N - 1 .NX 

BPQCM,N»K )=C«0 
DO 100 KKrl.NFEN 


IDO 3PQ(M,N, K )=BPQ <M » N ,K ) *SN ( KH ,1 , K )*S I N< M*PI*D II KK I /Sl 1 > 
f*SIN( N*PI*C2tKK >/SL2>*4/SLl/SL2 


GOTO 111 1 

SHORT METHOD ********************** 
LONG METHOD OF BPQ CALCULATION TH&T 
BETWEEN DATA POINTS IN CONJUNCTION 

qua o ritu Re 

SELECT THE STM MATRIX SUCH THAT THE 
SURFACE COOPnI NA TE SYSTE^t IS THE PI 
TO THE SURFACE 


DO 

TK_ 

lOlO CONTINUE 

CAL L A R A S SL ( NFES ,Jj 1_, D2. TK ) 
K=1 

XI ( 1 ) =D 1 1 1 J 
DO 

XL 

K- 1 


********************* 
USES INTERPOLATION 
WITH GAUSSIAN 

Z-COMPONENT OF THE 
pECtION MOST NORMAL 


C**** 


1042 

C**** 


CONTINUE 
K 1 = K 


CALL ARASSL < NFES,D2tOl »TK > 

K- 1 

X2(l>= D2< 1 ) 

DO 1040 Mri.NFES 


IFiD2(M) .EC.X2<K>> GO TO 10 
KrK*l 


XllK>=D2«M) 

CONTINUE 


K 2-K 

DO 1500 MWH-l.NSM 


1040 


DO 1500 MWH-l.NSM 


ZERO Y ARRAY 

DO 1042 I - 1 »MM A X 

DO 1042 J^1,NMAX 

YJ_I »U>=0«0 

LOAD THE MODE SHAPE TABLE Y 

DO 10 50 I - 1 > K1 

DO 1050 J=1,K2 
DO 1045 K=1,NFEN 


inOl(K) .EC. 01 III*aND.d2*H > .EQ.D2 I J ) if Y ( I , J) =SNt INT< TK ( K ) >,1,MWM ) 


SHAPE TABLE 





* . a 
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1500 CONTINUE 

JL1 11 RETURN 

C ******* ************************************* ********************* 

SUBROUTINE BSURIMUM) 


DIMENSION X6IS),A(8> 
DIMENSION D X ( 8 ) ,DA ( 8 ) 


• 00 

1070 

M=1,HX 

. 00 

1360 

N = 1 • N X 


NGPr 8 

NGPl=NGP/2 


CALL GL0IDA,DX,-1.0»1.Q,NGP *NGP1) 
DO 2 1=1. NGP 


XX=OX(I I 
AB zOA C I ) 
X 8 ( I ) = X X 
A ( I 1 =AB 



3B =SL 1 


Hl=|BB-AA)/2. 

G 1= < 3B* A A ) / 2. 

01 = 0 . 

DO 4 1 = 1. NGP 
UX=Hl*X8f X )«G1 
AI=H1*AI I) 


■9. 

D = SL2 


■C. 

1 . 

H=<0-C)/2 

G=(D+C)/2 

• 

• 



DO 3 J=1 ,NGP 
V J=H*X8 1 J ) *G 

3 Q=Q*A t J)»F (Ul , yj» 

4 Q 1 = 01 + AI *H*G 
BPQ«M.N. MUM)=Q1 

106 0 CONTINUE 
1070 CONTINUE 


1111 RETURN 

C******************* ************************************* ********* 

SUBROUTINE GLO (DA ,DX ,C ,0 ,NGP ,NGP1 1 
DIMENSION DX(NGP) ,0A<NGP) ,XXf 8) ,Al<8) 


DATA <XX(I),A1(I), 1=1,4)/ 
.9602898564, .1012285362 


t, .7966664774, .2223810344 
C, .5255324099, . 3137066458 


, .18343464 24, •3626 8 37833/ 
0MC=0.5DO*(O-C) 


D PC =0.500* (D*C ) 
DO 2 I=1,NgP1 


NI=(NGP-»l)-I 

DX( I)=-OMC*XX(I)-»DPC 


DX{NI)=DMC*XX<I)*DPC 
DA 1 1) =0MC*A1(I I 


2 DA(NI)=0MC*AKII 
RETURN 


FUNCTION F IUI,VJl 

CALL BIVLAG IUI .HI .VJ.K 2 .Xl .3. X 2 .3 , Y ,GG,DX 1,0X2 
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F = t>/AREA<IS)*6G»SIN (M »P I »U I /SL 1 ) »S I N ( N» PI » V J/ SL 2) 

RETURN 

r **«* **4 ft************************ ******** 44** *4 4* 4«4* 4*** *************** 


SUBROUTINE BI VL AG < A x ,M , A2 » N,X1 *IP 1 ,X 2, IP2 « Y ,G 
l0Xi.0X2.M21.HZ2.IERJ 


C ****************#*<1 ********************* ft **# ************ **************4 

C AI = FtRST ARGUMENT 


IER=1 

IF<jPl «G T . 23) GO TO Soc 
IER=3 

IF(IP1 .GT. M) GO TO SQO 
IF< IP2 .GT. 20) 60 TO 500 
IER=2 

H 

P 

IERrO 


1 = 
IF 
IF 
IE 


I S 1-M-IP1* 1 
GO TO 50 


XI (I)) GO TO 


M) 60 TO 20 


IE2-N 

I S2-N-I P? + 1 


GO TO 100 
IS2=I-IP2/2 











pTT?r 

'I • -*«L 


J IZJL^ 

228 . 


230 . 

231 . 

232 . 

233 . 

234 . 

235 . 
236 ." 
237^ 
23 8 . 
239 . 


ORIGfNAL FAGS 



IE2-IS2+I P2-1 

IF < IE 2 .GT. N ) 60 TO 

CONTINUE 

IT-IS2 

00 120 1=1, IP2 

TN=1. 

TO- 1 • 

DO 110 J=IS2,IE2 
IF ( J ,EQ. IT) GO TO 
TN=TN*t A2-X2 < J ) ) 
TD=T0*IX2<IT)-X2I J) ) 
CONTINUE 


C(I)=TN/T 0 
IT=IT* 


I 

I 


DU 150 1 = 1 , IP 2 


TO 65 



. IF 1 J .EQ. IT) GO TO 140 ; 

• TN= 1 • 1 



DO 130 K=IS2,IE2 

\ 

| 



IF 1 K .EO. J) GO TO 130 

: 1 



IF l K .EO. IT) GO TO 130 

•it 



TN = TN*t A2-X2 (K ) ) 

’ 1 

■ — - - - - - l 5 


130 

continue 

i •, 



DXN(I)=OXN(I )*TN 




TO = TD * 1 X 2 C I T ) *X 2 1 U ) ) 

| \ 


140 

CONTINUE 




DXNII)=DXN(I ) / TO 

' ^ l 


150 

I T=I T* 1 

' V 


IT=IS 1 

DO 220 1 = 1 , IP 1 


TN= 1 . 
T 0 = 1 . 


00 210 J=IS 1 ,IE 1 
IF ( J ,EQ. IT) GO TO 1 
TN=TN*( Al-Xll J) ) 
TD=TD* I XI (IT)-Xl(J ) ) 


CONTINUE 

0 <I)=TN/TD 


I T= I T+ 1 

IFCM 21 ,GT n ' r - n Tn 


1 


0 ) GO TO 300 


OX INI I ) =0 . 
T 0=1 • 


DO 240 J=I S 1 » IE 1 

IF I J .EO. IT) GO TO 240 


tn=i. 

00 230 K=IS 1 ,IE 1 


* 
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» $ X.X_,F_RQ£A LaXA. 

1CR1 A 12/14/83-18:38(44,) 

1 » C ******* fr******** =>»»» » »♦»»» *»»^ »» «♦♦»»»»» »»»♦*» «»»»»♦♦♦»♦»♦ »♦»♦♦»»*»♦ » 

2 • SUBROUTINE FROCA L <U N ,UMOtWH f Wl,W2, W 3»W*t',NM,IPRE,VNODC f ONODC,SNObc f 

3_. EC ENTF.NSDAT.NSTOR.I VTVP .IOT YP . tS TYP .SC.IFE. 

4. *NAM,NV,NMO,NOO,NSMX»NMS ,NS ,MXV ,MXS ,Mg ANQ. 

5j» *CO,PI»NFS,NTOB ,NSC,I0P»L8»L9»MXM«LN > 

6. C* 

7 . C» . 

8. C* FRQCAL DIRECTS CALCULATION OF VOLUME ,OPENI NG ,A NO STRUCTURAL 

9. C * NAT UR AL F pE Q UE NCIE S. 

ID. C* 

lj,. COHMON/ARE a 9ZFAC.PS I tPPT.PNtUP 

12. DOUELE PRECISION F A C ( 57 > ,PS I f 60 ) ,oP I »DN ,UP 

J 3. DIMENSION UN(4,NAM. NV ) . WMO ( 3.NM 0 ,NQ0) .UMC3.NSM X). 

~ 14. *NM( NMS ) , I PRE ( 4 ) f VNODC IMXV.I ,NV ) ,ONODC (MXS , 3,N00> 

15 • *, S NOOC(MyS»3»NS) »CEN TF iNTO B ) f NS DAT C N S > .NS TOR ( NS I . I V TYP C NV > . 

16. *IOTYP<NOO>»SCCN$C,NS* .ISTyP(NS) .IFECNMS) 

17. DIMENSION Ml (M XM ) , M2 C hXm I ,U 3( MX M ) .M4CMXMI 

18. INTEGER S 

_I9. FAL -1 .5»CENTF (MBAND ) 

20. FSLrFAL 

21. IFCLN.EO.il THEN 

22. M-MAXrO 

2 3. NMAX=0 

24. ISMAX=0 

_ 25. C»*»« ESTIMATE THE MAXIMUM MOD E N UM8ER NEEO Ep 

26. CALL MODEST IMXM ,MMAX,NMAX ,ISMAX ,MSX ,NSX I 

__ 27. R ETURN 

28. ELSE 

29^ END IF 

‘30. " NFS-NFS 

3 1_? C *»»* I F R E 0 UIRE D , _CAL C UJL ATE ACO U STIC MOOES 

32. IFCIPRElll.EQ.il GOTO 250 

33 • WR ITE (6,»>HXM,MMAX ,NMAX,ISMAX 

34'.“ DO 11D NVoL = l,NV 

3 5. N WN-0 

36. DO 8 q NrD,NMAX 

37. DO 70 Mr Q.MMAX 

38. DO 60 S -0 » I SM A X 

39. WT=OMEG AN(N VOL,M, N,S» 

40. IF C NWN.GE .MXM ) GOTO 90 

41 . I FCWT.GT.FAL.AND.NWN.GE.NAMI GOTO 7D 

42. IFCWT.EO.-l.OI GOTO 70 

43. N WN-NUN* 1 

44. WlCNWNirWT 

45. W2(NWN)=M*1.0 

46. W3CNWN)=N*1.0 

47. U4( NUN} :S*1 .0 

'48. 6C CONTINUE 

49. 70 CONTINUE 

So". 8C CONTINUE 

51. 9 0 CONTINUE 

52. C**** SORT ACOUSTIC MODES 

S3. CALL ARLSSL ( NUN ,U 1 , W2 , W3 ,W4 I 

54 • DO 100 I -1 ♦ NAM 

5 S . WN (_1 ,1 1 NVOL I = W KII 


r A 
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WN< 2. I.NV 0 L_J SW 2UJ 

WN< 3, I,NVOL ):U3(1) 

W Nl», I,MVQL>:a<KI) 

~ fco continue; 

_ 1 1 n_C ONTIN UE 

WR I TE ( 6 ♦ * ) WN 

C«*** CALCULATE OPENING ALLOWED FREQUENCY CONSTANTS 


IFCNV.EG.l )GOTO 250 
DO 200 IS=1.N00 


DO 180 n=0»NMAX 
DO 170 M=0,HMAX 
WT=OMEGAO< IS.M ,N I 


IFCUT.EG.-l.Ql GOTO I 7 O 
MWMrMWM* 1 


WKMUMirwT 

W2(MWM)-M*1«0 


W31 MWM»=N*1.0 
170 CONTINUE 


160 CONTINUE 

C**»* SORT OPENING MOOES 


CALL ARLSSLIMWM,W1,U2»W3,U4 I 

DO 195 1= l.NMO 

WMO(l f I IS)=W1(I) 
WM0t2,I,IS):W2(I) 


WMO( 3,I,IS)=U3(I) 
19S CONTINUE 


20c CONTINUE 

WRITE <6»*JMSX ,NSX 


as. 
86 • 

c+*++ 

WR I TE ( 6 » * ) WMO 

CALCUALTE THE FIRST NSMX STRUCTURAL NATURAL FREQl 

JENClES 

87. 

C**** 

THAT ARE LESS THAN FAL 


88 . 

250 

IF II0P.GE.5)G0T0 1111 



DO 310 IS-l.NMS 
MWM-Q 


IF(NSOATCIS).NE.O) GOTO 310 
IFCIFEIIS) ,NE.O> GOTO 310 


IFCISTYPIISI.EC.OGOTO 310 


DO 280 N-l ,NSX 
DO 270 M=1.MSX 


UTrOMEGAMt IS.M ,N) 

WRITE 16.*) M.N.UT.MM AX, MXM 


IFIMWM.GE.MXM) GOTO 2*0 
IF(UT.GT.FSL.AND.MWM.GE.N 

SMX> GOTO 270 

MWM=MWM* 1 
Ul(MUM)ruT 



270 


280 

290 


C**** 


U2 I MWMl -M* 1*0 
W7<MWH>=N»1«0 

W4CMUMI=N*l.o 

CONTINUE 


CONTINUE 

CONTINUE 


SORT STRUCTURAL NATURAL FREQUENCIES 
CALL ARLSSL CMUM.U1 .W2.W3.W4 > 


DO 293 I - It HUM 
IF t U 1 I I ) .G T »F SL I GO TO 294 
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; 118* 


WM| 3,I)=W3(I ) 


„ 

119. 

295 

CONTINUE 


1 

120. 


IR=NS TORfIS) 



121. 


WRITE (L9*IR) WM 


1 . 

122. 

310 

CONTINUE 



123. 


DO 320 IS - l.NMS 



124. 


IF(NSOAT|IS).NE.O)GOTO 

320 

1 

125 . 


IR=NST0R(IS ) 


\ 

126. 


WR ITE ( L8 * I R ) NM ( I S ) 



127. 

320 

continue 



128. 


DO 330 I S- 1 » NM S 


t 

M 129. 


IF(NSDATIIS).EC.Q)GOTO 

330 

f. 




c**** 

10 


c*»** 


CA LCULATE THE tH.N.IS) ACOUSTIC NATURAL FREQUENCY OF SUBVOLUME 
NVOL • 


GOfOl l0,20t3Q»40»,IVTYP(NV0L) „ 

VOLUME TYPE Cl* RETANGULAR PARALLELEPIPED 
OHEGAN = CO*PI * < tM/VN0DCI2,l,NV0L) ) »» 2* < N/ VNOOC t 3. 2. NVOL) 


£( IS/ VNOOC< 4,3 » NVOL) 1**2 >**0.5 

GOTO 1111 


VOLUME TYPE #2. CIRCULAR CYLINDER 
IF(M.NE.O) GOTO 22 


0 MEGA Nr-1 * 0 

ITIALI2ATI0N 


RLST±0.0 
MLST=M 


22 IF(MLSTaEQ.M) GOTO 26 

IFC N.EQ.O.AND.M.EQ. 1 )G0T0 26 


IT=1 

CALL 2ER0( AKNM .RLST.N * VNODC (2 .1 .NVOL > ,V NODC t 3 ,2 .NVOL) .IT) 


MLST-M 

26 OMEGA N=C O ’M (IS»PI/ VNQDC (4,3 »NVQL ) )»*2*AKNM»»2)*»0.5 

GOTO HI 1 

C **** VOLUME TYPE A 3. CONCENTRIC CYLINDERIrAL ANNULOUS 


30 IF ( M.NE .0 ) GOTO 32 

0MEGAN=-1.0 


INITIALIZATION 

RLST=0.0 









i^rrWr 
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I 

222 

1 

223 

224 


225 

226 

t 


L 



ML S_T=M 
AKNM=0.0 

.GOTO .„1111 

32 IFtMLSf .EO’.MI SOTO 36 


CALL ZEROC AKNM ,RL ST, N , VNODC <4 ,2 ,NVOL> , VNODC <2 ,1 ,NV0L) *ITI 
MLSTrH 


36 OMEGA N-C 0* ( ( I S ^PI / VNO DC ( 4 , 3 ,NV OL ) ) **2 + AKNM* *2 >**0. 5 

GOTO 1 XI 1 

C**** VOLUME TYPE #4. PERTURBED PARALLELEPIPED 

40 RLSTrPI* ( < M/VNOOC (.2 §1 tN VOL ) 1»»2 ■» t N/ VNO DC ( 3 . 2 .NVOL) ) **2± 

C< IS/VNODC( 4, 3.NV0L > )**2 )O*0.5 

RSVNO'DC t 5 , 3, NVQ L >-»VN0 0Ct4, 3 tUVOLJ 

R=R/VN0Dc»4,3,NV0L) ~~ 

AKNMrD.O 


IFIN.EQ.O.AND.IS.EQ.OGOTO 41 
IFIN.EQ.O) Al=-l./3. 


IF< N.NE.D) Al=l ./N**2/PI**2 

AkNm=«* 2.C»(I<;*PI/\/NQDC(4,3»NV0L) >**2*t 1 • / 3 .-A 1 ) -4 . / 


£ VNODC < 3,2,NV0L)**2 )/ < J N *P I /V NODC l 3 ,2 , NVOL » )**2 + 

£ « IS»PI/VNODC< 4, 3,N VOL > )«»2 > 

41 CONTINUE ~ 

WRITE <6,» ) M t N , IS t VNODC <2,1,NV0L> , VNODC I 3 ,2, NVOL). 

£ VNODC J 4 » 3 , NVOL ) , RL ST » AKNM 

0MEGANsC0«RLST»«l*2 »^R»AK NM»i |N*PI / VNOOCI 3,2,NV0L))»» 

£♦1 iS*PI/VNCOC< 4,3 f NV0LM**2 )/RLST**2>**Q.5 

WPI TEC 6 « » ) OHEG AN 

GOTO lxil 

C ** *# 

1111 RETURN 


£«»***#* « #««*#** ** *«$*** # $ *** ****** ** * * * * ******* ******** * ** *« ******** 
FUNCTION CMEG AO ( I S , M *N ) 


CALCULATE THE <M,N) OPENING ALLOWED FREQUENCY CONSTANTS 


c **«* OPENING TYpE SI. RETANGULAR 

10 OMEGAO=l (M/0N0pC(2 , 1 , I S ) ) **2* t N/ONO DC t 3 .2 , I S ) >«»2) *»S.5 
GOTO HU 

*** OPENING TYPE #2. CIRCLE 


C**«* 


GO TO 1 10, 20, 33) ,IOTYP< IS > 


20 IFIM.NE.O) GOTO 22 
OMEGAOr-l.D 


INITIALIZATION 
RLST=0,0 
MLSTr M 
AKNM-0,0 


GOTO 1111 

.E 0_.M ) G OTO 2 6 

IFCN.EQ.n.AND.M.EO. 1 iGOTO 26 


CALL ZERO( AKNM ,RLST ,N,ONODC (2 ,1 ,IS ) ,ONODC t 3 ,2 ,1 S> , I T) 
MLST=m 


26 0MEGa0=AKNM 
GOTO 1111 
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227_. 

c***« 

OPENING TYPE #3. CONCENTRIC CIRCLE 


228 • 


30 

IFCM.NE.O) GOTO 32 


229. 



OMEGAOr-l.C 


230. 

c 

INITIALIZATION 


231. 



RLSTrO.O 

1 

232. 



MLST=M 


2 j T • 



AKNM=0.0 


234. 



GOTO 1111 


235. 


32 

IFCMLST.EO.Ml GOTO 3*. 


236. 



if =2 


237. 



CALL ZERO C AKNH »RLS T .N .ONODC (3. 2. IS ) . ONOOC (2.1.IS1.ITI 


23 8 . 



MLSTrM 


239. 


36 

0M£GA0=AKNM 

1 ' 

240. 



goto nil 

* - 

241. 

c*++* 



242. 

1111 

RETURN 


243. 

C ************************************************ ******************** 

i 

244 . 
245. 

c* 


FUNCTION OMEGAM(IS,M,N» 

si 

246. 

c* 



j 

i 

247. 

c* 


CALCULATE STRUCTURAL NATURAL FREQUENrIE S 

248. 

c* 




249. 

c* 



r ■ 

250. 



DIMENSION CF t4,ll> , AM (3,3 ) f VK 13*3 1 ,VM(3,3J ,C( 3»3>.EWC( 3,3),EVR< 3> 

! 

251. 



£ ,EVH3) 


252. 



WRiTEI 6 ,*»lS,M .N.ISTYPC IS ) ,SC! 1 .IS > 


253. 



GOTO! 10,20, 30, 40,50,60. 70. 8 C» .ISTYP (I 


254. 

c**** 

SURFACE TYPE #1. RETAN 6 ULA* SHAPe WITh FOURIER SERIES MODE SHAP! 

t . 

255 . 


10 

CONTINUE 


256 . 

c 


NORMALLY PROVIDED AS DATA 

I ’ 

a 

257. 



GOTO 1111 

258 . 

c**** 

SURFACE TYPE U 2. ORTHOTROPIC RETANGULAR PANEL WITH SIMPLY 

u. ■ 

259. 

c***» 

SUPPORTED EDGES 


260. 


20 

CONTINUE 


261. 



G1 = M*1. 


262. 



G2=N*1. 


26 3. 



H1=G1**2 


264. 



H2=G2**2 


265. 



DXY = SCJ 1,IS)*SC(5,IS)*2.*SC C3.IS ) 


266 . 



0MEGAM=PI**2/SC<6,IS>**0.5*<G1**4*SC< 1 , IS > / SNODC < 2, l,IS>**4 


267 • 



£♦ G2**4*SC (2.Is)/SN0QC(3,2,IS)**4+2 . *H1*H2*0X Y/ ( SNODC 1 2 , 1. I S ) **2 

■ ■; 

jj>- 

268 . 



£ * SNOoCI 3,2,rS)**2))**0.5 


269 . 



GOTO 1111 


270. 

C***-* 

SURFACE TYPE # 3 . CIRCULAR SHAPE WITH FOURIER SERIES MODE SHAPES 


271. 


30 

CONTINUE 

r- 

272. 

c 


NORMALLY PROVIDED AS DATA 


273. 



GOTO 1111 


274 . 

c**** 

SURFACE TYPE #4. THIN, HOMOGENEOUS CIRCULAR PANEL WITH FIXED 

I ? 

275 . 

c***« 

EDGES 

. { 

276. 


40 

CONTINUE 


277 . 



DATAuCFJ j, I» ,1 = 1, 111 »J=i,4 1/1.017, 2. 007, 3. 005, 4. 003 .1.468, 


278. 



£2. 4e3, 3 .486, 4.491, 1.8, 2,927, 3.948 ,4 .959 ,2 .2 74 , 3 .354 , 4 . 39 1 , 


279. 



65. 413, 2 . 657, 3. 76 e, 4. 822, 5. 856, 3. 032 ,4.172*5.244,6.289,3.402, 


28 0 . 



£4.569,5.658,6.715,3.767,4.961 ,6.066 ,7.135,4.129,5.347,6.469, 


281. 



£7.549,4.488 ,5.73,6. 867. 7. 959,6. 109 , 6 .5, 7. 26 1,8.36S/ 

1 / 

I' f 

282. 



lFIN.LE.il .AND .M *LE .4 >BETA = CF (M ,Nl 

283. 



IFCN.GT.il. OR. H.GT. 41 BET A=M* ( N-l ) / 2 . 

; i." ' 






i :• 
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234 . _ 


0MEGAM=SC< l.IS )*BETA**2 


285 . 


GOTO HU 


236. 

c**** 

SURFACE TYPE «5. FRAME STIFFENED CYLINDRICAL UHOi E 

SHELL 

... -2 8 - 7# 

50 

CONTINUE 


238. 


AL=2*PI 


239. 

51 

3- SNODC ( 3, 2 • I S ) 


29 C. 


PBX=<M*PI*SN00C(3,2,IS)/SN00CC2.I tIS) > 


291. 


QPA = C CN-1)*PI/AL> 


292. 


VK 1 1, 1)=SC ( l.IS)/ SC (2. IS ) * ( PBX**2* 1 1 *SC ( 5 • I S ) ) ✓ 2*QP A 9*2 ) 

293. 


VK(2,2)=(l4SC(5»IS))/2.0*SC(l,lS)/SC(2fIS ) * P3 X**2+ 0 PA **2 

294. 


VK C 3, 3) =14 SCC 4 ,IS»/B**2/SCI4,IS)*<Sr(3. IS)/ SC (4. IS)* 


295. 

1 

L P B X**4.2*SCC 3 ,1 S ) / SC C4 , IS ) *PBX **2*CP A**24GPA** 4) 


296. 


VKC2, l)sll*SC«5tISi j/2.0*SCCl ,IS )/S CC 2. IS )*PBX*0PA 


297. 


V K ( It 2)=VK (2.1) 


298. 


VK i 1,3)=SC<5»IS)*SCU.I«;)/SCI2.IS)*PB;: 


299. 


VK ( 3, 1 ) = VK (1,3) 


300. 


VK(2,3)=QPA 


301. 


VK ( 3,2) =VK (2,3) 


302. 


DO 52 1=1.3 


303. 


00 52 J= 1 , 3 


304. 

52 

VMC I,J)=0.0 


305. 


VM( 1, 1)=SC (6,IS)*B**2/SC(2 ( IS i 


306. 


VMC 2,2)=VMC 1, 1 ) 


307. 


VMC 3, 3) =VM C 1, 1 ) 


306. 


CALL GASINVCVM ,3,DET) 


309. 


CALL MTXMPY C VK ,VM,C,3,3,3> 


31C. 


CALL EIGEN C C, AM»EWC»EVR ,EVI ,3 ,3,3 ,0 ) 


311. 


OMEGA M=E VR C 3 ) 


312. 


GOTO 1111 


313." 


SURFACE TYPE #6. FRAME STIFFENED CYLINDERICAL SHELL 

SEGMENT 

314. 

t.Q. 

AL =A TAN (SNODC C 4 , 3 , 1 S > / SNODC C 4 ,2 , 1 S )) 


315. 


GOTO 51 


... 316. 

JC***__ 



317. 

c#*** 

SURFACE TYPE #7. BBN F.E. DATA MoDEL 


316 • 

70 

GOTO llli 


319. 

c***» 

SURFACE TYPE #8. ORTHOTROPIC RETANGULAR PANEL WITH 

clamped EOGES 

320. 

80 

61= M 4 0,5 


321 • 


G2= N 4 0.5 


322. 


H1=G1**2*C 1.0-2./ CG1*PI ) » 


r 323. 


H2=g2**2*C 1.0-2./CG2*PI)) 


324. 


IF CM.EQ.l)hl = l .248 




IFCN.E0.1)H2=1 .248 


HgESHI 


DXY=SCC 1,IS)*SCC5,ISM2.*SC(3,IS) 



327. 
J2 E. 
329." 
_ 33 _ 0 ._ 

33 1. 

332. 


0MEGAM=Pl**2/SCC6,IS)**Q.5*CGl**4*SCC l.IS )/SN0DCC2, I, IS 1**4 
£♦ G 2 * * 4»SC ( 2. I S I /$ N ODCC 3 1 2 . IS > **4 *2 .»H1*H2*PX Y/ ( SNQDC ( 2 . 1.1 S > »*2 
C * SNODC <3.2.1 S 1**2 1 1**0. 5 

GOTO 1111 


C **** 

1111 RETURN 


C ************* ****** ******************************************** 
SUBROU TINE ZERQCAKN M ,R LST .N ,A .B .IT ) 

C* 

9 * FIND TH E NExT Z^RO OF the equation ,it, as held in the 

C*“ ROUTINE EO ' " “ ~ 

step=.i 


339. 
34 C. 


xo=rlst4$tep 

X = XO 
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EA-UL-E A 1 D.EJ.Q ■JLQ.ttUJUa.. 

ER=0.01 

NI:13 


15 CONTINUE 
X = X-* S TEP 


CALL EQtDET.X.N.A.B.IT) 
WRITE (6.*)X0»0ET0.X »DET 


IF IDETO.LT. 0. 0. AND. DET.LT.0.0 >G0 TO 20 
IF t D£ TO.GT.Q. • AND.OET.GT.O. >60 TO 2n 


FIRSTrXO 
RA ST- X 


GO TO 30 
20 X0 = X 


DET0=0ET 
GO TO IS 


C ******* NEWTON RAPHSON ITERATION *********** 
30 XX0=FIRST 


“RUST SUE TO 
XXN=RAST 


YDETN=DET 

NIT=0 


YMAX=AMAX1 UBS (YRLST) ,ABS I YDETN ) ) 
40 EPSrABSl YDETN/YMAX ) 


NITrNlT ♦ 1 
IF (EPs.LE.ER)GO TO 50 


IFtNlT.GT.NI ) GO TO 50 
X 1 - X X N - XXC 


Yl=YDETN- YRLST 


RAPHSON ITERATION ************************************** 


370. 

371. 

X=XXN -YDETN * XY1 
CALL EQ(DET,X,N.A,e,IT) 


372. 

373. 

WRITE 16, *)X, DET, EPS 
S-SIGNC l.O.DET) 


374. 

375. 

S1=SIGN( l.O.YDETN) 

IFtS.EQ.Sl.AND.ABS(OET).GT.AB$CYDETN)> GOTO 45 



XXOSXXN 

YRL$T=VDETN 


XXN=X 


30. 

31. 

GO TO 40 
45 XXN=X 

32. 

33. 

YDETN=DET 
GOTO 40 


50 RLST=X 


AKNM=X*PI/A 
1111 RETURN 


* C* ***************** ************************************************* 
SUBROUTINE EQtDET.X.N.A.B.IT) 


C* 

C« CA LCULAT E THE VALU E OF A FUNCTIO N . THE FUNCTION tS USED 
C* TO ESTABLISH ALLOWED FREQUENCY CONSTANTS FOR VOLUMES, OPENINGS 

C* AND s nRFACES 

C* 

G0t0( 10.20I.IT 

C**«* CIRCLE OR CIRCULAR CYLINDER 
10 XA=X*PI 


















%r : \ 


t > 

P<, . 

k 



i* 
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398 . 



DET = s? JPI)(A ,N) .... .... 


399 • 



GOTO 1111 


400 • 




401 * 

c**** 

CONCENTRIC CIRCULAR ANNULOUS 


402. 


20 

XA=X*PI 


433. 



XB =X*B / A 


404. 



DET = 9JP| XA f N)*BYPlXB,N»-BJP ( XB , N > *8 YP (X A ,N > 


405. 



goto mi 


406 • 

mi 

RETURN 


407. 

C 4**0 *************************************************** ******** 


408. 



FUNCTION BJIX.NI 


409. 

c 


COMPUTES THE J BESSEL FUNCTION OF THE FIRST KINO FOR A 


410. 

c 


GIVEN ARGUMENT X, AND A GIVEN ORDER N. 


411. 

c 


Xr ARGUMENT OF THE J BESSEL FUNCTION 


412. 

c 


Nr THE ORDER OF THE J BESSEL FUNCTION 


413. 

c 


QrREQUIRED ACCURACY 


414. 

c 


B J-THE RESULTANT BESSEL FUNCTION 


415. 



DOUBLE PRECISION XO »Z ,2Z, VAR, VALtSUM. TOTAL »BLJ 


416. 



DEFINE BSLU<T0TP,T0TQ.ARG>=SQRT12.y IPI*X>>* 


417. 


t 

CToTp*SINIARGl4TOTQ*COS(ARG)) 


4 lp • 



XO=DBLf< X » 


419. 



IF ( X.GT.1P. )G0 TO 250 


420. 



IF1N.GT.55) GOTO 300 


421. 



IF ( X.EQ.O. » GOTO 30 


422. 



Ml=57-N 


423. 



2=1.000 


424. 



22=XD*XD 


425. 



SUM=3.DD0 


426 • 



TOT a L=O.OoC 


427. 



3 Jl=l .ODD 


428. 



00 13 1=1, Ml 


429."" 



K = I-1 


430. 



V A 3=2 .DO** f 2*K.N) 


431 • 



T0TA L =SUM+EJ1*Z/FAC 11 )/FAC 1 I + NJ/VAR 


432. 



IF l TOTAL .EQ.O.DOGOTO 5 


‘ 433. 



VA L=SUM/ TOTAL 


434. 



IF1VAL.GT.DN.AND.VAL.LT.UP> GOTO 23 


'435. 


5 

3 Jlr-BJl 


436. 



Zr2*2Z 


437. ' 



SUM-TOTAL 


438. 


10 

CONTINUE 


439. 


20 

BLJ=XD**N*TOTAL 


440. 



BJ=REAL1BLU> 


441. 



RETURN 


442. 


30 

IF1N.gT.Q1 GOTO 40 


443. 



3J=1.0 


444. 



RETURN 


445. 


40 

3J=G.O 


446. 



RE TURN 


447. 


USE ASYMTOTIC SERIES SOLUTION 


448, 


250 

IF1N.GT.8) GOTO 275 


449 • 



CALL PSCS(N t X, TOTP,TOTO»ARG > 


450. 



BJ=ESLJ1 TOTP»TOTO,ARG > 


451. 



RETURN 


452. 

c**++ 

USE ASYMTOTIC SERIES THE RECURSION WHEN N>S 


453. 


275 

C A LL P S O S ( 8 , X , TO TP , TO TQ , A R G J 


454. _ 



BL JN=8SLJI TOTP »TOTG *ARG ) 
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455. 


CALL PSQSC7.X.T0TP.T0T0.ARG) 

456 • 
457. 


3LJNM1-BSLJ<T0TP»T0TQ , ARG ) 

CALL RECUR « N, X ,BL JN , BL JNM j , BJ ) 

458 • 
459. 

3 CO 

RETURN 

3J=0.0 

460. 

461. 

RETURN 

£$*********#***«###* #*«$«******** ******** ******** ******** ******* 

46 2. 
463. 

c ****** ************* ******************************************** 

FUNCTION BYIX.N) 

464. 
465 . 

C* 

C* CALCULATES THE NEUMANN FUNCTION 

466. 

467. 

C* 

DOUBLE PRECISION XD , TO T AL , CUM .SUM .Z ,ZZ , Dl V , VAL .BLY , B L J 

468. 

469. 


DEFINE BSLY<T0TP,T0TQ,ARG)=$QRT<2*' <PI*X>)* 
C tTOTP*SIN(ARG)*TOTQ*COS <ARG) ) 

470. 

471. 


XO=DBLEIX| 

IF|X.Gt.10.)GQT0 250 

472. 

473. 

C*4* 

IF < N.GT .55 ) GOTO 3C0 
CALCULATE eY SERIES DEFINITION 

474. 

475. 


IF (X.EQ.O. JGOTO 50 
TOTAL=O.DO 

476. 

477. 


CUMrO.DO 

SUMrO.OO 

478. 

479. 


Z=X0*XD/4.00 
IFIN.Eq.O) goto 15 


430. 2Z=1.D0 

<*ai . D O 10 1 = 1, N 

DIV=FAC<N-I+1>/FAC< i» 

C U M=C UM+0IV*ZZ 

z'z=zz'*z 

10 CONTINUE 

15 ZZ- 1 »DQ 

8 Y 1-1 .0 0 

488 • M 1 r 57 -N 

419. DO 30 1 = 1 . Ml 

490. DIVrZZ/FAC (I) 

491. T OTALrSUM-f ( PSI 1D*PSHI«N ) )*BYl*DIV/FAC(I+N) 

492. VAL=SUM/T0T AL 

19 3. l£j VA L.6T.0N.An0.VAL.LT.hP > GOTO 40 

494. 20 BYlr-BYl 

491. ZZ=ZZ*Z . 

496. SOM=TQTAL 

497. 30 C O NTI HUE 

498 . 

499. 

500. 

53 1 _. 

532. BY=PEAL«BLY> 

5 33. RETURN 

504. 50 3Yr-i.0E35 

505. RETURN 

506'. 60 8 Y - 1 • OE 3 5 

5 37 . RETUR N 

508. C***» USE ASYHTOTIC SERIES SOLUjION 

5 09. 250 IF ( N .GT .8 1 GOTO 275 

510. CALL PSCSIN.X.TOTP.TOTQ.ARG) 

511. 8Y=eSLYITOTP,TOTQ,ARG> 


40 DIV=H2.D0/XD)**N>/0PI 

B L J ~DS L E (BJ (X ,NM 

BLY=(-6'l V>*CUM-M 2 .00/0PII*0L0G(X0/2 .001*BLJ-< < ( XO/2 .00) **N l /PI I 
C » TOTAL 


482. 

483. 

484. 
435 . 
486. 
4 37. 


SjTW'SM*' W” r • 

14 • . * ' R •« • • ■ ■ 
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512. RETURN . 


513. C**** USE ASYMTOTIC SERIES THEN RECURSION FOR N>8 

514. 275 CALL PSGS ( 8 . X , TO TP , TO TO . ARG 1 


5 IS • 3LYN:BSLY( TOTP , T 0 T Q ,ARG) 

516. CALL PSQSC7.X, TOTP, TOTQ. ARG) 


517. BLYNl:BSLY (TOTP, TOTQ, ARG) 

518. CALL RECUR (N, X ,BLYN,BLYNM1 .BY ) 



IllrUI 


RETURN 

C ******************* ********************************************* 


SUBROUTINE PS Q S (N , X ,TOTP ,TOTO , ARG I 

DOUBLE PRECISION A TEX ,8 J1 . TRHP ,TRMQ .SUMP . SUMQ ,R J.RK , U . V AL . TP » TO 
XD=DBLEI X) 

U- 4 Q*N*N 


ATEX:8.DQ*X 


TRMP=I.DO 
SUMP: 1 • OD 0 


SUMQ:O.DO 

RJrl.OQ 


DO 10 M=2 t 56»2 
RK-RJ-»2.D0 


TRMQ=TRMP*(U-RJ*RJ )/ATEX 
TRMP:TRMQ*(U-RK*RK )/AtEX 


TP = SUMP-»BJ1*TRMP/fAC»M*1 ) 


TQ:SUMQ*BJ1*TRMQ/FAC(M) 
IP( TQ.EO.O.DQJGOTO 5 


val=sumq/tc 

IF ( VAl.GT.ON.ANO.VAL.LT.UP ) GOTO 20 
5 SUMQ:TQ 
SUMP: TP 


RJ=RK+2.0C 
10 CONTINUE 


20 ARG-REAL(X“DPI*(N/2»D0*u«25D0) ) 


9. TOT 0=REAL( TO 

0. RETURN 


1. c ******************* *********** 

2. SUBROUTINE RE C UR (N , X ,BSLN 

£♦***************♦*♦ *££*«******* * 
,BSLNM1,BSL) 

3. QTNT=2./X 

4. K : N - 1 


5. 00 10 1:8, K 

6, aSLNFl=OTN T *I*BSLN-BSLNMl 


7» BSLNMl:BSLN 

8. B S LN:B SLNP 1 


9. 10 CONTINUE 

0. BSLRBSLN 


1. RETURN 

2 • C**** ************************** 

*44$$$ $$ $$$$$$$$ $$$$$$$ $ $$< t $$$$$$ 

3. FUNCTION El ( X , N ) 

4. C COMPUTES THE I BESSEL FUN 

iCTIONCMODIFIEd ) FOR A GIVEN ARGUMENT 


AND ORDER. 

X- ARo UMENT OF THE I BESSEL FUNCTION 


N-ORDER OF THE I BESSEL FUNCTION 
8I:RESuLTANT 
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\/(4MMru« ■ « * — ■ 

QLL&1 


626 • 

3I=BI*EXP< X ) 

627. 

GO TO 100 

fe2 fl . ISO 

IER=1 

629, 

60 TO 100 

630. 160 

IER=2 


60 TO 100 

C ******* ***** ******* 4************** ****** 4444*444*4*444*4**44** 


FUNCTION E J P ( X . N ) 


C* CALCULATE THE DERIVATIVE OF THE BESSEL FUNCTION OF THE FIRST 
C* KIND OF OROER N 


IFJN.EQ.0»6JP=-1.0*BJIX,N-»1 ) 


IFlN.GT.0)BJpr0.5*tBJIX,N-l l-ej(X ,N->1> ) 
1111 RETURN 


C ******************************* ******* 4* ******** 4*4* *4* 4 4**4 4*4 
FUNCTION BYPCX.N) 


C* DERIVATIVE OF THE BESSEL FUNCTION OF THE SECONO KtND OF ORDER N 


IF (N.EQ.Q)ByP-~ 1 »0*BY tX .N + l > 

IFtN.GT.0)BYp=0.5*(BYCX t N-l )-B Y I X , N+ 1 ) J 
1 111 RETU RN 

C 4 * 4 * 44 * * 44 * 4 * 4 ** 44 * 4 *** 44444 **** *** 4 *«* 4 444 * 4 ** 4 44** * 4 ** ********** 

FUNCTION B IP ( X ,N ) 


C* P ER IV ATIVE OF THE MOQ IFI ED BESS EL FU N CTION Of Th E FIRST KImO 

IF(N.EQ.0>eiP=-1.0*BI(X,N*l 1 

IFtN.6T. 0)E IP= 0.5 *<BI iX«N-l >-BHX.N*l>> 

RETURN 

C ** ** *** 44 * 4 * 4 * 4 ** 44 44*44*44444*444****4* 444*444* 4444 44 * ********** 


SUBROUTINE MODEST I MXH ,MMaX,NMAX ,ISM A x ,M$X ,NSX ) 


ESTIMATE THE MAXIMUM INDICIES for FREQUENCY CALCULATIONS 


C **** *♦* VOLUME TYPE #1. RETAnGULAR PARALLELEPIPED 


M1=NINTIFAL*VN0DCC2.1,NV0L»/C0/PI» 


ISl=NINTlFAL*VNODC C «, 3.N VOL )/ CO/PI ) 


N 1=N INT<FAL»VNOPC< 3 . 2. N VOL) /CO/PI ) 

IF(M1.GT.MMAX)MMAX=M1 

IF(N1.GT.NMAX)NMAX=N1 


IF(IS1.GT.ISMAX)ISMAX=IS1 

GO T0_ 100 

C ***** VOLUME TYPE #£. CIRCULAR CYLINDER 
20 CONTINUE 


MMA X -7 
NMA X - 7 


ISMAX-7 

C«»»*» VOL UM E TYPE « 3. CONCENTRIC CIRCULAR CYLINn cR 
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68 3. 

684. 

685. 
686 . 

687, 

688 , 

689, 

690, 
6 9 1 . 

69 2. 
_6_9 3 .^ 

694. 
695 . 

696. 

697 . 

698 . 

699 , 

700. 

701. 

702. 

703. 


ICO 

c **♦* 


150 

16D 

C#*** 

C**** 

C 

_C 

C 

_C 

C* 


CONTINUE . 

MMAX=7 

NMAX-7 

ISMAX=7 

CONTINUE 

SCALE MAX MOOE RESULTS 

DO 150 I - 1 > MM A X 

IF(HMAX*NHAX*ISMAX.LE.4*NAM)G0T0 160 

MMAX = MMAx«l 

NMAX=NmAX-1 . 

ISM A X-ISMA X-l 

CONTINUE 

CONTINUE 

k 

» I T IS ASSUMED THAT THE TOTAL NUMBER OF ACQUSTtC MODES 

MXM> .GE. M$X*MSX OF THE SURFACE. THE MXM IS TO SIZE THE 

WORKING ARRAYS. CALCULATION OF STURCTURAL AND ACOUSTIC 

FREQUENCIES ArE LIMITED TO THE FREQUENCIES WITHIN THE RANGE 
OF INTEREST BY THE INDIVIDUAL CALCULATION ROUTINES. 
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XX_.BNDCAL_,XX 

10R1A 12/1**/ 8 3-1 8: 38(29*1 

1. C »»» »»» ♦»»»»♦»»»»»■»» »»»»*»»»*»♦»» »»»»»»»»»»»» »♦»»»»♦♦»»»»»»»»♦»»»»»» 

2. " SUBROUTINE BNOCALC8NDWN»8NOWM f UNMC»UM*ZM*ZN*NM*CENTF»NSTOR»NS*NTOE 

3. S,NAN*NSMX.NkS.SU.EPS.NFS.IPR£.ISTvP.L8.L9.L1S-NS0AT.I0P.NPR0B ) 


BNOCAL CALCULATES THE BANDWIDTH OF IMPORTANT MODES ARqUND EACH 
BAND OF MODAL ANALYSIS INTEREST 


12. 

L3. 

t NSDAT(NMc) 

IF (IPREI ll.EQ.il Go TO 230 

i*». 

15. 

IF (NPROB .NE.O. aNO. I OP . EG . 5 > GOTO 5C0 
ZH=ZN ( 11 


1 

1 

6 • 
7. 

DO 130 1=1, NAM 

IF ( ZN(I) .GT.ZH » ZH=ZN (II 


1 

1 

8. 

9. 

loo CONTINUE 

DO 200 NOB = 1, N TOB 


2 

2 

0. 

1. 

MCzCENTF |NCB > 
Wl = WC*t 1-8W » 



DIMENSION BNDUN (NT0B*2) ,BN0WM (NTOB * 2> *WNMC(NAMI *WM( 3. NSMX I * ZM ( NSM 


W2=UC*< 1+BW ) 

DO 150 1=1. NAM 

IF (WNMC(I) .GT.WC) GOTO 155 


1 = 1-1 

155 WR_3 = WNMCm 

IF I A3SIWC-WNMC < I - 1 > I.LT.ABS (WNMCII)-WCI ) WRB = WNMC ( I -1 ) 

I FJ I.LE.1)WRB=W NMC< 1) 

CALL VICAL CUB , W 1 ,UZ WRB ,ZH > 

CA LL_RC A L ( UMAX , W MIN ,UB *WC*Wl*W2*ZH 

3 ND UN ( NOB * 1 I =W C-WMI N 

BNDUN ( NOB# 2 > =W MA X HJC 

2C0 continue 

C»»»* CALC ULATION OF BNDWM 

IF(IP'rE(3>.EQ.1)G0T0 1111 

DO £3 0 I S = 1 « NM S 

iFCNSDAT(IS).NE.O»GOTO 500 

IF ( ISTYPtlSl »E C. QIGOTO SOD 

ZH=C.O 

_ IR = 2»NFS-»NstOR(IS> 

REAQ(L8*IRHZM (J) ,J = 1*NT0B) 

DO 250 1=1. NTOB 


250 IF(ZM(I).GT.ZH )ZH = ZM(I) 
300 CONTINUE 


IR = NS TOR ( I S I 
REA0(L9*IR) UM 


DO 4Q0 N0B = 1*N TOB 
WC=CENTF(NOB» 


DO 350 I =1 * NM ( IS > 

IF( UMt 1 ,11 .GT.kC) GOTO 35 5 

35q CONTINUE 
1 = 1-1 


355 URB=UM( 1*1 ) 

IF i I.LE »H WRB = WM ( 1*1) 
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5. fc.« HLL=JiC*iX=£.WJ 

57. W2=WC*< 1+BW) 

5S_* CALL VICALtuB.Wl.U2.MRB.ZH> 

59. CALL RCA L (WMAX,WMIN f WB.WC,yl,W2, 2 H.EPS) 

60 . B N O MM ( NOB « 1ISMC-MMIN 

61. 3N0UH(N0B»2):UMAX-UC 

62. OOP CONTINUE 

63. IR=NSTQRIIS> 

64 . URITEiLlS*IRIBNOUH 

65. 500 CONTINUE ‘ 

66. URITE(6. »)BNPMN 

67. WRITE «6.*)BNDWM 

68. 1111 RETURN 

69 • c *************** #***#*#i)c*******i** ******** ****** ************ ******** 

70. SUBROUTINE VI C AL < WD , W 1 . W2 t WRB . ZH ) 

71. COMPLEX X,Y 

72. 6=C4»ZH»»2*URB*»2-2*URB»»2) 

73. AL=-G/2.0 

74 . PHIrt 4*MRB»»4-G»*2 >»*Q.S 

75. X-CMPLX C AL.PHI ) 

76 . V-CSQRT ( X ) 

77. ALPHA 1=REAL <Y I 

76. PHI1 = AIMAG <Y> 

79. AAZ=-l.p/(4*ALPHAl) 

80. 332 = 0.0 

81. CCZr-AAZ 

32. OOZ r-BBZ 

33. TERM1 = < AAZ/2I*AL0G < W2**2*2* ALPH A 1*W 2 + ALPHA 1*4 2* PHI 1**2) ♦ ( I BB2- 

84. __ * AkPHA 1 * A A Z.) /PHI1)*ATAN(< W2 ■» AL PH A1 ) / P H 1 1 I - ( tAAZ/ 2)*AL0GIM l**?+2 * 

35. *AL P HA 1*U l* ALPHA 1**2 + PHI 1**2 1M ( BBZ - ALPH A 1* A AZ ) / PHI 1 > *A T AN< IU1+ " 

86. »ALPH ft 1) /P HI 1 n 

87. TERM 2 = ( CCZ / 2) *AL0G(U2**2-2* ALPH A1*W 2-* ALPHA 1**2* PHI 1**2 l-M ICCZ* 

8 8.. *ALPHA1-»D0Z)/PHI1)»ATAN( (W 2 -A LPHA1 1/PHI1 IM 1 Cr2/2I»AL0G < Ml»»2-2» 

89. *ALPHA1*W1+ ALPHA 1**2+PHI 1**2 I* f » CCZ* ALPH A 1 *002 I / PHI l !*AT AN< I Wl- 

90 • * A L PJH A 1) /PHI 1H 

91. UD=CTERMl*fERM21/ IW2-W1I 

92. RETUR N 

93* c ******************************************** *********** *********** 

94. SUB ROUTINE RCAHWHAX.WHIN .MB.UC .Ul .W2.ZH.EPS) 

95 . DO 100 K = l, 2 

96. C = Efs.*WB 

97. DU=BW*URB 

9 g . M3 = VIRB 

99. IFIURB.LT. WC.AND.K.EQ. 2 )W3=WC 

_130. IF t URB >G T ,WC .AND .K .EQ . 1 ) M3=MC 

XOl. CALL VICA'hU,W1,W2.W3.ZHI 

J 0 2. DE TOrW-C 

103. WR 0=U 3 

104 . It <K.E0.1IUR=URo-OW 

105. IF (K.EQ.2)WR=UR0+DW 

106. NI= 10 

107. ER=5.0 

JOB • 10 CALL VICAL(U,m.U2tWR,ZHI 

109. OET=W-C “ 

1 10. IF t OE TO « LT . 0. 0 « ANO . OE T. LT . 0 .0 IGOTO 20 

111. IF(dETO.GT.O.O.AnO.DET.Gt.O.O IGOTO 20 

112. FIRST=URO 
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113. RAST=UR 


114. IFtK.EG. 

115. FIRSTrWR 

2) GOTO 3 O 

116. RAST=WRO 

117. GOTO 30 


118. 20 WRO=WR 

119. DW=BW*WR 


120. IFtK.EG. 

121. IFtK.EG. 

DWRrWRO-OU 
2 > UR=URO*DW 

122. DETO=DET 

123. IFtUR.LT 

.50.1G0T0 51 

124. GOTO 10 

125. C#*** NEWTON 

RAPHSON ITERATION 

126. 3q J=2 

127. XFQYO=FI 

RSI 


YDET0=DET0 

XFGYN=RAST 


Y0ETN=0ET 

NIT=0 


YMAX=AMAXltABS < YOETO ) » ABS t YOETN ) ) 

40 EPrAB S< YOETN/YHAX) 

NIT=NIT« 1 

IF(EP.LE.ER) GOTO 50 


IFtNlT.GJ.NI) GOTO 50 



Y1=YDETN-Y0 
Xi.Y 1- X 1 / Y 1 

ETO 


WRzXF QYN-YD 
IF tWR.LT.5Q 

ETN *XY 1 
. )GOTO 51 


CALL vICALt 

W.W1.U2.WR.ZH) 


0ET = W-C 



XFQYOrXFOYN 

YDETO=YDETN 



XFGYN=UR 

YDETN=DET 


50 

GO f C 40 
CONTINUE 



IF I UR.LT. FIRST. OR. WR.GT.R AST) WR rt FIRST* RAST>/2.0 

51 IFt WR.LT,50.>WR=0. 

IF t K «EQ • 1 ) WMIN -WR 

iF(k»E0 »2) UMAX - WR 

ICO CONTINUE 
RETURN 


E 
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» S xx .mulCV « x x . 

lORlI” 12 / 14 / 33 - 18 : 38 ( 56 ,) 

1 > C »»♦♦♦♦»»»»»»»»»»»»»» « »»»»»♦»»»»»»♦»»»«»»»»»»»♦»»»»»»»»..«»»»♦»«»♦»»»»»»» 
2 , SUBROUTINE MUL CV ( WNMC ,E IMTX ,A ,0 » VLNM , VLNM 1 , W N ,WM 0 » IGEMOV ", 

3» CARE AO, V.CENTF , NAM .N AHMC .NOO .NOW ,N 1 . N .NMO .N V .NI.nFQY . 

— 4 . £NT 0 B,LBAND,MBAND,L 16 t L 17 ,I 0 PM 0 .MCP*NG,VAL,T 0 T» 

5 . C» 


6 . 
_7 •_ 
8. 
9. 
10 . 
11 . 

12* 
13. 
it. 
15 . 
16 . 
17. 
te. 

_1|9 ._ 
20 . 
21 . 
22 . 

23. 

24. 
25 ._ 
26. 
27. 
26. 

29. 

30. 
jl, 

32. 

33. 

34. 

IS*. 

36. 

37. 

38. 
39 • 
40. 
_4K_ 

42. 

43. 
44* 

45. 

46. 
47 ^ 

48. 

49. 
"SO. 
51. 
52 ". 
5 3. 
54. 


C* 

C* PERFORMS ACOUSTIC COMPONENT MO D E SYNTHESIS 

C* 

C* 

COMMON/A RE A3/ZER0, EPS, BW.ER 

Di mension wnmc (Nam » .eimtx (nom ,noo ) , 

£ VLNM ( NAM, NMO ) , VLNM 1 (N AM ,NMO ) ,WN (4 , N AM ,NV > , U MO ( 3 , NMO , NOO ) 

£,I GEMOV ( ?. NOO ) . ARE AO (NOO ) , V (NV ) .CrN TF (NTOB ) .TOP MO ( HCP, NV ) 

£,VAL( NMO ), TOT (NMO) 

DOUBLE PRECISION A INI ,N ) ,D ( N.N ) .PET BS .FTST 

OOUBLE PRECISION VLFT , VRT ,FC YL ,FQYR ,DP , YMAX ,DER , VRA ST , R AST, VLTST 

NAM1=12 _ 

WRITE (6,*)NGM ,NOO,NG 

I S TP= 0 . 

FOTLO=CENTF (LBANDM'd.-eW ) 

FOTHI=CENTF (M B AND )» ( 1 «+BW > 

DO 4 1=1, MCP 

00 4 J=1.NV 

4 IOPMO (I, J)=l 

ICTrNG 

WNMC ( 1) =0,0 

K = 2 

FOYL=DFLOAT (FOTLO) 

OF=FQVL»D FLOAT (DFQY) 

WRITE ( 6 , * ) DF ,DF 

CALL G 0 VERNJ.FGYLJ _ 

CALL DETER(VLFT) 

WR ITE ( 6 ,_*> DF.OF 

OER=DFLOAT (ER ) 

STEP THROUGH FREQUENCY RANGE 

10 FQ YR=FQYL*DF 

C_A L L GOVERN (FO YR ) 

CALL DETER (VRT) 

WRITE (6,»)FQYL , VLFT ,FQYR , VRT 

IF (FQYL.EO.FQYR)STOP ’ENDLESS LOOP BEGUN’ 

IF(FQYR.GT.DFL0AT(F0THI).AND.K.LE.2 )STQP ’NO FREQUENCIES IN RANGE 
IF ( VLFt*v r T>40,30,20 

20 VLF T = VR T 

FQ YL = F OYR 

IF (ISTP.6E .2)DF=FQVL»0F LQAT(0FQY) 

IF(K.LE.2)CF=FCYR*.11500 

iSTPrl STP + 1 . 

GOTO 10 ” 

30 FT ST=FQYL 

VLTST = VLFT 

GOT 0 9 0 

C****«« CLOSE IN ON NATURAL FREQUENCY 

40 I F t ISTP«LT»2)THEN 

0F=DF/2.DC 
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E 

LSE . _ 


E 

NO IF 


YMAX=QMAX1iDaqS(VLfT),0A3S(VRT)> 


RASTrFQYR 

VRAST=VRT 


DO 80 NIT=l,NI 

FTST=,FQYL*VRT-FQYR*VLFT>/ (VRT-VLFT ) 


CALL GOVERN (F TST ) 
CALL DETER(VLTST) 


I 

1 

WRITe;(6,*IK,FTST,VLTST 

IF IOABSI VLTST/YMaX 1 .Lf.OER 1 GOTO 90 


> 

) 

IF ( ( VLTS T* VLFT ) »LT. 0. 00 )GOTO 70 
FO YL=FTST 



VLF T = VLTST 

soto ao 


70 FQYR=FTST 


80 CONTINUE 
C**** STORE R{ 



90 WNMC(K»=REAL(FTST) 
CALL GOvERN (F TST 1 



call vec 

IF<K.GE.NAm1)GoTO 131 

D 


FQYL=RA$T 



ICT=ICT-1 

IF(IC T«LE. O) CALL 0 PM0<REAL«FTST).K) 

IF I ic T • LE • 0 ) I C T=NG 

K- K ♦ 1 

I S TPs 0 

GO TO 1 0 

100 CONTINUE 

WRITE C6»*)WNMC 

C — ” 

JR E TURN 

C ****** * ************ ********************* ******** ******* ********* ****** 

SJJ 0 R 0 UTIN E GOV E RNIFOY) 

DOUBLE PRECISION FQY 

C»»*» FORMS THE 60VERNIN6 MATRIX FOR ACOUSTIC COMPONENT mOOE SVNTHEcI $ 
DO 10 I=1,N00*N0M 

D0_ 1 0 J = 1,N00»N0M 

10 D( i, j)=0.000 
Do 30 1=1. NOO 


DO 30 Jrl.NOO 
IFt J.GT.DGOTO 30 


IF(I.NE.J) SO TO 20 
KVrlGEMOVC 1,1 > 


SGN=l.o 

CALL EMTX(KV,I ,J,FQY,SGN) 


KV=IGEM0VI2,JI 


Q Y , SG 


20 KV=C 

IF I IGEMOVMfl » .EQ.IGEMO V 1 1 , J) . OR . IG EMOV <1,1 ) »EQ *tGE MO V ( 2, J ) ) 


* KVrlGEMOVi 1,1 I 

IF( IGEMOyC 2, II .EQ.IGEMO V<1,J>. OR. I6EM0V (2,II.EQ .IGENOVt 2,JM 
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_KV =_IS EJMUL12..I . 

IFIKV.EQ.C) GO To 30 


IF ( IGEM0V( 1,1 ) .EC.IGEM0VI1, JI.OR.IGeMOW f2,I>»EQ»IGEM0V<2,J) ) 
* L = 1 


SGN-C “1» )#'*L 

CALL EMTX<K V.I ,J,FCY,SGN» 


30 CONTINUE 

IFfNOO.EQ.DGOTO 45 


DO 40 1:1, NOO&NOM 

0 0 40 J: I , NOO»NOM 


40 Dt x,j)sD( J«Z) 

45 CONTINUE 

OETBS=DABS CDC 1 ,1) ) 

DO 47 I=1,N00*N0M 


DO 47 J=1,N00*N0M 

47 D( I,J)~D<I.J)/DETBS 


return 

C ******* ************************* **************** *********************** 


SUBROUTINE EMT X (NVOL , I , J , FQ Y, S GN ) 
DOUBLE PRECISION FQ Y 


DOUBLE PRECISION S , S 1 ,S 2 

IFtIGEMOV< 1,1 ) .EC.NVOL) INV =1 

IFIIGEM0V(2,I ) .EQ.NVOL) INV=2 

lR=tINy-l)»NOO*I 

READ(Ll7*IR) VLNM 

IF n GEMOVI l.J) .EO . NVOL )InV=1 

IF I IGEMOVI 2,J ) .EQ.NVOL )INV=2 
IR=< INV-1)*N00+J 


RE AD ( L 17* I R ) VLNM 1 

C**»* SELECT THE MOST IMPORTANT NAMMC ACOUSTIC MOOES ANO THE 


c ***« OPENING MODE SET FOR r H E NAMMC ACOUSTIC MOOES 
M=I0PMD(K/NG*1,NV0L ) 


5 CONTINUE 


DO EO NR=M,M*N0M-1 


Ml=(I-l)*NCM*L 


DO 43 MR=M,M*NOM.l 
J 1 = J 1 + 1 


M2=( J-1)*N0M*J1 


30 10 NWN=1,nAM 

S2=DFL0AT( WNl 1 ,NWN ,NVOL ) )**2-FQ Y**2 


IF (CABS) S2) .LT.1.DD)S2=1.D0 

Sl-DFLOATC VLNM 1 (NUN ,MR )* VLNM ( NWN ,NR ) I/S2 


S=S*S1 
10 CONTINUE 


30 D ( Ml, M2) -C S/DFLOAT (VINVOL )/ AREAOCI ) ✓ AR EAO ( J) ) ♦ D ( M 1 ,M2 » » 
L ♦OFLOATI SGNI 


40 CONTINUE 
50 CONTINUE 


111 CONTINUE 
RETURN 


C «**************#****#*»*»»#*»********** ************************ ****** 
SUBROUTINE VEC 
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170. 


ii 173. 

i Hi... 

t 175. 

] 176 ._ 

1 177. 

_ 178. 

"m. 

180 . 

181. 

182_._ 

18 3. 
134. 
185 . 
186. 
137V 

liij_ 

I 189 . 

190. 

191. 
_ 192. 

193. 

194 ._ 

195. 

196 •_ 

197. 


198. 

199 . 

200 . 
201 .' 

_ 202 . 

203. 

20 «U 

205 . 

206 . 
207. 

_208 . 
209'. 
210 . 
211 . 
212 . 
213. 
_214. 
215 • 
2 16 . 
217. 
216. 
219. 


221 . 
22 2 . 

223. 

2 24. 
225 . 
226 . 


D0_6 0_J=.l jJi 

00 fed I=1.N1 

. A( I. J): Q( I , J) 

60 CONTINUE 

M=_i_ 

CALL DPI NV ( A ♦ N 1,M ,N 1 » OETBS ) 

00 90 1=1 , NOO 

Do 90 J=f„NOM 

I I=_N &K*U = 1 > , 

ETmTX(J,I> = REAL ( A ( I I t N ) ) 

90., e.QNJ I_NUE 

E I MTX C NOM , NOO ) -«1. 0 

W R I_TEiL 1 6 * K ) EIHTX 

WRITE (6, *>WNMC(K ) 

WRITE ( 6 ,»>EIMTX 

112 CONTINUE 

RET URN 

C ****** ***************************************************************** 

SUBROUTINE OETER(OET) 

DOUBLE PRECISION S.OET 

C * , 

C* EFFICIENTLY CALCULATES DETERMINANT OF A SPARSE MATRIX 

D E T = 1 »DQ 

NMlrN-1 

DO 130 J -1 . NM 1 

S=D(J,J) 

0ET=0EJ * S 

JP1=J*1 

DO 5 D I=J, N 

50 D< J, I J=0<J,i »/S 

DO 75 J 1 - J P 1 . N 

IF « D I Jl, J ) .EQ.C.DO JGOTO 75 

_S - 0 J J 1 , JJ_/0 ( J. J) __ 

DO 60 irj. N V ~ ' “ ~ " ’ ’ “ * " 

60 Dl JI,I»=D< Jl,i )-DtJ v I)*S 
‘"75 CONTINUE ' ~ ' 

ICO CONTINUE 

DE T-DET*DE TES 

RETU RN 

£*'*** **************************** **************** *******«$**** ******$ 44 ,:. 

c ******************************************** ************ ********* 

SUBROUTINE OPMDIW.K) 

DO IDO NVOL-l.NV 
" DO 40 1 = 1 , NMO 
40 VAL«I):0.C 
"DO 95 ISrl.NOO 

IN V-3 

IF ( IGEMOVC 1,1 S ) .EO .NVOL )INV =1 

IF ( I6EM0V ( 2 , IS).EQ.NV0L)INV-2 

IF C INV.EQ .CTgOTO 9 S 

IR= ( INV-1 ) *N00 + IS 

READ(L17»IR IVLNM 

DO 55 NR - 1 , NM 0 

DO 50 NWN=1,NAM 

S 2 ~ W N < 1 , N W N , NVOL )** 2 ~ W »*2 

IFIABS(S2) .LT « 1 . I S 2 > 1 • 0 
VAL(NR>"VAL<NR) + VLNM(NWN,NR >»*2/S2 






r**. 


:_*•* I - ‘i '• ■■ 
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22 \jU. 

228. 

2 29. 

230. 
_23_1_._ 

232. 

233. 

234. 
235a. 
236. 
237*_ 
238 • 

239. 

240. 

24 1 . _ 

24 2. 

243. 

244. 
24S_s_ 

246. 

247. 
248 . 

_249_. 

25 0. 


_c ONTINUE 

MR I TE ( 6 * * I NR » V AL 

IF(VAL<NR) ,EQ.0>ST0P «NH0 TOO HIGH* 
CONTINUE 

TOT« 1)50.0 

00 63 1=1, NOM 

T0Ttl)=T0T C1)*VAL<I > 

DO 70 I=2,Nmo-NO m 

TOTtI)=TOTtI-H-VALtI-l>*VAi ( I*moM~ 
T0THI=T0T( 1) 

DO 63 1=1. NMO 

IFtTOTlI > .LT.TOTHI JGOTO 80 

tO THI = TOT<I) 

IT oT=I 

CONTINUE 

CONTINUE 

IOPHD(K/NG*1.NVOL)=ITQT 

CONTINUE 

MRITE«6.»>K 

HR I TE ( 6 ♦ * > t IOPMD (K ,I),I=1,NV) 

NAMHC=NAHMC 

WHO C1,1,1)=UM0C 1,1,1) 

RETURN 

ENO 
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SS _ XJUVPNHCjlX? i . 

IlCBlX "12/14/33-18:39117,) 

I i , c »»»»♦»»»»»»»»»♦»»» »»«»»»»»»»»»»<■»♦» »♦ »»»»»»♦»»»»»»»»»»»»»»»»»»»»«*»♦»» » 

2". ' ~ SUBROUTINE VPNMC (WNMC ,UN ,N AM,NV ,IgEMOV ,NOO , NOM, AREA 0, NM0,EIMTx ♦ 

3. *PNMC , I N OPN, NAMMC, VLNM ,V . NPR08N.NAMT ,NVT ,LS. L 6 .L lfc.L 17. I OPH D . 

4, *MC P, NG) 


CALCULATE THE MULTIPLE CAVITY ACOUSTIC CONSTANTS OF CONSTRAINT 


C***» 


DIMENSION WNMC (NAM ) ,WN t 4,NAM,NV ) , 1 6 EMOV ( 2 , N 00 ) ,AREAO(NOC> 
», VLNM(NAh, NMO ) ,EIMTX(NOM,NOO) .PNMC ( NAMMC 1 , I NOPN ( NV , NAM ) 

*, V ( NV ) , I OPMD ( M CP ,N V ) 

CHARACTERO70 PLACE 


PL A CE = * SUBROUTINE VPNMC* 
WRITEC6.*)PLACE 


WRITE (6,*) MCP,N6, NAMMC 
WRITE 1 6»*) I OPMD 


PLACE - IGE MOV * 

_WJ? I IE ( 6 , AJPLACE 

WRITE (6,*)i(SEM0V 

D O 9 I _=1 ,_N V 

00 8 J= 1 , N AM 

SELECT THE NEAREST NAMMC MOOES AROUNO EACH WNMC 


DO 4 NwN=l,NAM 

IF I WN I 1 , NWN ,1 ) .51. WNMCJ J ) ) 6 0 TO 
lN'0PN« I , J ) = NW N -I N ¥ (NAMMC/ 2 ♦ C. 5 ) 
IF iINCPNd , UJ_*LE.OJ_INpPNil , j) = l 
"CONTINUE"" ' " 




3 

3 

0. 

1. 

iR=(NPROBN-ll*NVT*I 

WRITE(L6*IR.ERR=111> ( INDPN ( I , J ) . J= 1 ,NAM ) 


3 

3 

2. 

3. 

9 CON T INuE 

WRITE (6,*)IN0PN 


3 

3 

4. DO t 1=1, NAMMC 

5. PNMC | I ) =0.0 


3 

3 

6 . 

7. 

6 CONTINUE 

DO 7 NV0L=1 ,NV 




48. 


49. 


T 50". 

c**«* 

51. 


mam 



PNMC ( 1| = 1. C 

Ir=(NPR0BN-1)*NAMT*NVT* iNVOL-1 ) *N AMT ♦ 1 


WRjTE (i_5*IR)pNMC 
CONTINUE 


DO 1000 NWN=2 »NAM 
I F(NWN.6E. 1 3)G 0T0 iCCP 
READ(Llfc*NWN)EIMTX ‘ 

PLACE = *E I MTx* 

WRITE( fc,*)PLACE 
WRITE (6,*) NWN 


WRITE(fc,*)EIMTX 

DO 5 Q0 N V 0L=1,N V 

SELECT THE nom MODES FOR USE 
M=I0PMD(NWN/NG*1,NV0L ) 


DO 15 1=1, NAMMC 
PNMCC Dr'o.O 
DO 100 I SUR=1 » NOO 















IFJ IGEHOVC l.ISUR).EQ.NV0L)GO TO in 

IF(IGEMOV< Z,ISUR).NE.NVOL> GO TO 100 

SGN = -1.0 

GO TO 20 

10 SGN= + 1 .0 

20 VALrO.O 

IFdGEMOVl 1,ISUR).EQ.NV0L> INV 
IF CIGEMOVf ZfISUR).EQ.NVOLl INV=2 
IR=4 InV-1)»N00 + IsiiR 
R? AD«L17’IR)VLNM 
PLACE = * VLNM VALUE S* 
WRITE(6**)ISUR»NV0L 

DO 21 18 = 1,15 

21 WR I TE ( 6 » *) CVLNM4I8 t«J8»f J8 = l fNMOl 

NWNHC-INDPN (NVO L t N UN I *1 

00 40 I- 1 * nAMHC 
VaL=Q.C 


NWNMC-NWNMC+1 
NR = M-1 


DO 30 J=l t NOM 
NR=NR*1 


VAL= VLNM( NWNMCtNR )*EIMTX(J f ISUR ) + VAL 
3C CONTINUE 


40 PNMCl I)=PNMC(I )+SGN*C ARE AO ( ISUR )*UNMC (NWN )**2*VAL> 
C / ( WN4 If NWNHC ,.NVOL )**2-UNMC (NUN >**? > /V ( NVOL ) 


ICO CONTINUE 


83. 

UPITE(L5*IR,ERR=111» PNMC 

84. 

UR I TE < 6 1 * ) NuN 

85. 

WRITEI6,*)PN M C 

86. 

SCO CONTINUE 

37. 

1000 CONTINUE 

88 • 

111 CONTINUE 


RETURN 


F TN 536 IBANK 372 DRANK 








XX. PRHCA 

;a 12/14 

l. 

2 . 

_3» 

4. 

5. 

6 . 

7. 

8 . 

_?. 

10 . 

11 . 

12 . 

13. 

14. 

1 5. 

U. 


L_»XX* 

/83-1 


8:39(17, ) 

SUBRO UTINE PR HCA L (VLNMO.BPQ .VMNPA.RMN.VLNM. 
CyMO, 0 TM , OORG , ONODC ,WM ,STM»SORG.SNODC,WNMC, W 
CIGEHQV.IsV.IOTYP.ISTYP.IVTYP.HASSUR t N M . NSDA 
tcENTFt ZNOATA, I PF ,E X ,pNM C , INDPN , AREA .ARE AO ,N 
£NS .MNSS.NTOB.NSMX.NPFC.MXS . NV . MX V . iy AHMC . NHO 
COMMON /AREAl/IOP.MOP (4 ) ,IPRE (4) ,IN ,IOUT 
COMM ON / ARE A 2/ LO , LJL, L 2 .L 3 . L4 .L . Lfe .L 7 . Lfi .L9 . 
£ H4,L15»L16fL 17 ,L 18 

COMM O N/ ArE A 3/ ZERO. EPS . BW 

CCMM0N/AREA4/NFV t NFS,NPf r CT,NT0BT.NvT,NST,MX 

£ NSMT .MXT.NXT . NAHHCT «NS EA£l 

COMMON/ ARE A 5/NPROB .NPROBN ,M TAPE ,NT APE ,LeANo 

COMMON/A RE A6/RQ. CO. VOL. PREF, PI 

COMMON/ ARE A 9 /F AC ,PSI,DPI,DN,UP 
DOU B LE PRECISION FAC(57).PSI(60t.0PI t DN.UP 
DIMENSION VLNMO(NA M , N MO >.BPC(MX,NX,NSMx ),VM 
£CN (NAM,NS)»ZANN(N&M ) ,RJA(NTOB ) , 


£yM0(3,NM0,N00 ) ,OTM ( 3. 3.N00 ) ,00RG(3,M001 ,0N0 
£) . STM ( 3.3.NS1 . SORG ( 3 ,NS ) .S NOD CCMXS .t.NS ) »WN 
£VTM( 3,3,Nv),V0RG(3,NV), VNODC ( MX V ,3 . NV ) » IGEM 
EI OTYP (NOO) .ISTYp(NS ) . I V tYP ( Nv ) .MASS UR (MNS S , 
£NS TOR ( NS ) , gNDWM (NTOB , 2 1 ,BNDW N ( ^ToB, 2) ,CENtF 
CIPF (NMS ) ,EX (NPFC.NMS ) ,PNMC ( NaMMr ) .1 NQPN (NAM 
EAREAOC NOO) ,RMN (NAM.NV 1 , V ( N V ) , S C ( NS C , NS I , A MN 
C ZM(NSMX> 


■ CN.Z ANN.PJ A.AMN. 

N,VTM,VORG,VNODC, 

X»N ST OR. BNP MM. BN P UN. 
OM, NOO, NAM, NMS, MX, NX, 


vt.mxst, namt, 

TmBAND, IHBAND 

NPA ( NAM) , VLNM ( NAM ) , 


PC (MXS, 3 , NO q ) ,UM( 3 »N $MX 
MC ( N AM ) . WN(4, NAM.NV) . 
0V(2,N00 >,ISVCNS >, 

NMS ) ( N)M NMS ) . NSD AT ( NS I . 
INTOB),zNOATAINTOB,NS) , 

.NV) .ARE A( NS ) . 

(N A M,NV) ,ZMPAT(NTOB) , 


54. 

55. C* 


PARAMETERS NEEPEO FOR MOPAL ANALYSIS ARE CALCULATED 
PRHCAL DIRECTS THE CALCULATION FLOW BASED ON VARIOUS 


USER DEFINED 


VARIABLES AND OPTIONS. THE FOLLOWING ROUTINES ARE IN PRMCAL: 

MULPRM: OPENING/VOLUME COUPLING FACTORS 

GENMAS: MULTIPLE CAVITY GENERALIZED ACOUSTIC MASS 
LNMCAL: MASTER SURFACE/ MULT IPLE CaVITY COUPLING FACTORS 
ZANCAL: ACOUSTIC CAVITY DAPPING FACTORS 

ZMCAL: STRUCTURAL DAM PING 

RJACALs JOINT ACCEP TA~NCE-FR EOUENCY DOMAIN 


! a 

o n 
# * 

GLO: 
F ! 


C* 



c* 

SLX : 

• 

c* 

SLY: 


c* 

SGEOM: 



OLX: OPENING INTEGRATION LIMITS ANn GEOMETRY OEFImITIoN 


MASTER SURFACE STRUCTURAL MODE SHAPE 


OIM: OPENING MODE SHAPE 
FN: MULTIPLE CAVITY ACOUSTIC MODE SHAPE 


FNCAL: SUBVOLUME ACOUSTIC MODE SHAPE 
PFCF : SURFACE PRESSURE FIELD 










:h * 


ORIGINAL PAGE fSf 
OF POOR QUALITY 


NORMS t STRUCTURAL MOP? SHAPE NORM ALTZATTON FACTOR 

NORMA: SUBVOLUME ACOUSTIC MOOE SHAPE NORMALIZATION FACTOR 


O’* » 
135 . 
lOfc. 


107. 

108. 


109. 

11C. 


111 . 

112 . 


ALIGN: ANALYTICAL CALCULATION OF THE OPENING/VOLUME COUPLING.LNM 

<0X : 

SOY: 

SOZ: 


ANALYTICAL CALCULATION 


GENERALIZED FORCE 


5 • 

C* 

RVB JA : 

J • 

c* 

ATJA i 

r. 

c* 

Pw JA : 

! . 

c* 





C* P 

C* U 

C* p“ 

C* 

C* 

c**** 


c **+* 

10 

C***» 

20 


In 


C**** 


c**** 


PORTIONS OF MOST OF THE ABOVE ROUTINES ARE SUBJECT TO UPOATING 
WHEN ADDI TIONAL SURFACE ELEMENTS .VOLUME ELEMENTS. AND/OR EXTERNAL 

pressure field types are aooed to the program libraries. 


OPENING/VOLUME COUPLING FACTORS 


IF ( LN.EQ .2) GOTO 10 

IF < LN.E Q. 3 ) GOTO 30 

CALL MULPRM 

GOTO 100 

MULTIPLE CAVITY GENERALIZED ACOUSTIC MASS 

CALL 6ENMAS 

ACOUSTIC CAVITY DAMPING FACTORS 

IFtIPREt2>.EQ.l> GOTO 100 

CALL ZANCAL 
GOTO 100 


structural modal damping assingment 

CONTINUE 


CALL ZMCAL 

MASTER SURFACE/MULTIPLE CAVITY COUPLING 


IFCIPREl31.EQ.il GOTO 40 
IFCI0P.EQ.5JG0T0 4Q 


CALL LNMCAL 

JOINT ACCEPTANCE - FREQUENCY DOMAIN 


DAMPING FACTORS 
GOTO 100 



ACTORS 


C*#** 


100 

c«*** 



CALL RJACAL 


RETURN 

*** ********* $#***#* 4 *# 4 * *##*** «#***** * 44 ** * 4 ** $ 4 ** $**$*£*$ 


SUBROUTINE MULPRM 

PENIN6/V0LUKE COUPLING FACTORS ARE CALCULATED TN MUi PRm. THE 
0UPLIN6 FACTORS ARE USED IN MULCV TO CALCULATE THE MULTIPLE 
AVITY ACOUSTIC RESPONSE CHARACTERISTICS. THE LNM CAN BE EITHER 
NALYTiCALLY OR NUMERICALLY CALCULATED. WHEN ANY NEW OPENING OR 
PLUME TYPE IS ADpEp TO ThE PROGRAM LIBRARIES » THE LNM SOLUTION 
S ASSUMED TO BE NUMERIC UNLESS OTHERWISE NOTED IN THIS ROUTINE. 


DIMENSION IA(3),CFC4»3) 


IW = 1 

NOM-NOM 


CALCULATE THE ACOUSTIC MODE NORMALIZATION pACTOR FOR SU8CAVITIES 





WW!* ■ 


~x 

NAI 
DA 
=0 
R - 


ISrISUR 

DO 13 0 0 I N y - 1 » 2 — 

NV0L=I6’EM0V(INV,ISuR> 

I QENT IFY TpE LNM ANALYTIC SOLUTION .LTyP, TO B* 
LTYPrG 

I F (1 0T_Y P_LI S U^JL«JLQAijuAKO_^O.I-YP.IJlV-OJJLjLEJ3jL.lJJ^XYP=A_ 
IF ( IOTYP ( I SUR ) .EQ.2.AN0.IVTYP (NVOL) »EQ • ?) LT YPr 2 
IF(IOTYP(ISURl .E0.3.AND.IVTYP jNVOL ) .EQ.2>LTVP=3 


jF ( IOTYP i I SUR) .EQ.3.AND.IVTyP INVOL) .EQ.3)LTYP=4 


USED 


IF (LTYP.NE .0JG0T0 ISO 
*** NUMERICAL CALCULATION OF I 


DO 100 NWN=l t NAM 

DO 100 MUM-1.NM0 

VLNMO<NWN t MWM >=0.0 
VLNMO ( NWNj MW M ) =SURI (IS .ISUR 
£ /AMN1NWN* NVOL » 

10 0 CONTINUE 

GOTO 9qo 


NVOL. MWM. NUN. IW )/AREA0< ISUR) 


1000 

1111 


VLNM0(NWN»MUM)=9X*BY*BZ/AREA0lISUR)/AMN<NUN t Nv0L) 
IF ( ABS( VLNMO (NWN .MUM » » . LT . ZER 0 IV LNM 0 i NW N.MW M > =0 .0 


CONTINUE 

STORE VLNMO IN TEMPORARY FILE 


IR=<INV-1>*N00*ISUR 
WRITE I L 17* I R 1 VLNMO 


CON T INuE 

RETURN 


C ********************************************************************* 


RE AD < L3 * I R ) ZANN 

GOTO 1111 

1C IFiNV.NE.il GOTO 












♦ — x. — ru»3 j y 

1-7. Qa. 


DO 200 1=1. NAM 

171. 

172. 


RMN(I,1»=1.C 

call NORMA (DmnS. 1,1 ) 

173. 

174. 

200 

UNMC(I)=UN( 1,1 ,1) 
VMNPA(I)=DMNS**2 

175. 
176 . 


IR=NPROBN 
WRITE CL4*IR)RMN 

177. 

178. 


V 0 L- V C 1 ) 
GOTO 1111 

179. 

ISC. 

300 

VMNPA( 1» =1 .0 
DO 301 I=1,NV 

181. 

182. 

301 

RMN (1,1) -v ( I ) / VOL 
DO 600 NWN=2,nAM 

13 3. 
184. 


VMNPA (NWN) -0.0 
IF(NWN.GE.12»G0T0 600 

185. 

136. 


DO 500 NV0L=1,NV 

IR=INPR0BN-1» *NAMT*NVT* (NVOL-’l I *N AMT ♦NUN 

187. 
188 • 


REAQ( L5* IR 1 ( PNMC ( I 1 ,1=1 ,N AMMC) 
A = 0.0 

189. 

190. 


DO 400 N U NMC=1 .NAMMC 
A = PNmC(NWNMC)**2-»A 

191. 

192. 

400 

CONTINUE 

VMNPA (NWN > = VMNPA (NWN 1 ♦ A/VOL* V (NVOl ) 

193. 
194 . 

5 00 

RMN(NWN,NVOL)=A*V(NVOL)/VOL 

CONTINUE 

195. 
196 . 

550 

DO 550 I = 1 , N V 

RMN (NWN. I) =RMN (NWN , I > / VMNP A (NWN 1 

197. 

198. 

600 

continue 

WRITE <L4*NPR0BN) RMN 

199. 

200. 

mi 

CONTINUE 

IF(IPRE( 11 .EC. 11 GOTO 1112 

'201. 

202. 


IR= NPROBN 
WRITE (L2*IR> Wn 

203 • 
204. 


IR=NPROBN 

WRITECL3*IR)WNMC 

205. 
206 . 


IR=NF V-»NPROBN 
WRITE (L3*IR)VMNPA 

207. 

208. 

c- 

c 


209. 

210. 

1112 RETURN 

£********$*******$#***#********** ***4**** ****** t********************* 

211. 

212. 

c* 

SUBROUTINE ZANCAL 

213. 

214. 

c* 

C* ACOUSTIC CAVITY DAMPING FACTORS ARE CALCULATED FROM THE ACOUSTIC 

215. 

216. 

C* ABSORPTION OF EACH SURFACE ANO THE ACOUSTIC MOOE SHAPES. ALL 
C* INTEGRATIONS ARE NUMERICAL. THE ACOUSTIC ABSORPTION OVER EACH 

217. 
2 1 8 • 

C* SU3 SURFACE IS ASSUMED TO BE CONSTANT. THE END RESULT IS AN 
C# ESTIMATION OF THE ACOUSTIC DAMpING OF EACH CAVITY MODE. IF THE 

219. 

220. 

C* CAVITY DAMPING IS GIVEN A $ DATA, 2ANCAL LOADS PLACES THE 
C* INFORMATION INTO THE CORRECT ARRAYS IN THE CORRECT UNITS. 

221. 

222. 

C* 

C* A3S0R3TI0N COEF = 8*R0*C0/ZA WHERE ZA IS SURFACE IMPEDANCE 


225. 

226. 


223. C* DATA IS In THE FORM OF A8S0RPTI0N COEFFICIENT UNLESS 

224. C* EXPERIMENTAL CAVITY QAmpING Is SPECIFI ED. THEN IT IS 


C* 


IN THE 
IW = 3 


form of c/cc (Percent or critical oampingj 




ORIGINAL PASS m 
OF POOR QUALITY 


IF ( H OP ( 3 > .NE » 1 LJL0J10_2ja 

O*#* TF CAVITY OAMPING SUPPLIED BY DATA 

I S U R- 1 

5o'"ia NUN=1,NAM ’ ~~ ~ ~ 

1 0 _ 2 A N N (_N U I N » = , Z A C W NMC (NU N ) . IS U R ) 

gojo iod 

C**** CALCULATION OF CN AND ZANN 


20 CONTINUE 

00 15 NVOL - 1 « N V 

DO 15 N = 1 , NAM 

CALL _N0 R M AJ_D A ,.N V0L_ t N_l 

15’ AMN(NtNVClL)=OA 
DO 33 NWN.-rl.NAM 


ZA NN( NUN >=C. 
IprNF V+NPROE 


C**+* LOAD PREVIOUSLY CALCULATED CN IF STILL VALID 

IF (IPRE( 1 1 . £Q» 1 ) READ(L2»IR» Cm 

C***» 

DO 63 ISUR=l.NS 


IF ( ISTYPjISUR ) .EQ. □ ) GOTO 60 

Icsl S U R 

N VO Lsl S V ( I SUR ) 

00 50 NW N=_l . NAM 

ZA N-ZA ( UNMC (NUN) .IS UR ) 


IF ( IPRE ( 1) .EQ.l) GOTO 4 n 

I R=i NPRO BJN HLj »NAMT»NVT* (NVQL-1 )»NAMT-»NU N 
READ( L5*IR)PNMC 

:N( NUN, I SUR >=SURI ( IS , Is UR, N VOL, MUM, NUN. IU 1 


40 CMrCN(NWN,ISUR J/ZAN 

Z A N NCNM N ) -Z ANN ( NUN ) + R0 »C0 »»2*CM / ( 2» VOL»VMNP Aj NUN)»UNMC( NWN) ) 

SC CONTINUE 


WRITE (L3*IR IZANN 
1111 RETURN 


FUNCTION Z A ( W » I SUR ) 


70. 

W2-CENTF (I ) ♦8W*CENTF 1 I ) 

71. 

IFIW.LE.W2) GOTO 15 

72. 

10 CONTINUE 

73. 

1=1-1 

74". 

15 ZA=ZNDATA(I,ISUR»/8./R0/C0 

75. 

IF (M0P( 3)»EC.lJZA=ZNDATA(I.ISUR > 


RETURN 

SUBROUTINE ZMCAL 


ASSIGN THE DAMPING TO EACH STRUCTURAL MOoE BASED ON THE BAND 
AVERAGE DAMPING DATA 


DO 1 00 iSURrl.NMS 















IfLLI SJLY P_L LS UJLL*. E_Ql*. 0 J G.QJLQ LG. 

IR=2*NFS* N SToR (ISU r) 
REA0(L8*IR)ZM n AT 


IR=NSTOR(ISUR) 
READ ( L9 * I R ! WM 


DO 75 MUM=1,NM (ISUR ) 
DO 50 NOB=LBAND,MBAND 


U1=CENTF(N0B)M1-8W) 
W2=CENTF(NCB )*(1«BW) 


IF CWMC 1,MWM) •6T.W2.0R*WMH t MWM» .LT.W1>G0T0 60 

so co ntinue 

N03=NOB-1 

6 0 ZH( MUM) =ZMOAT(NOB ) _ 

75 CONTINUE 

19 =N FS+NSTQR(ISUR) 

WRITE I L9 *IR )ZM 

IR = NSTOR<ISUR) 

WRITE (LB *IR >NM (ISUR ), 1ST YP ( ISUR ) , ARE A (ISUR > 
tOO CONTINUE 


RETURN 

****** #«**«*** ***************************************** *********** 
SUBROUTINE LNMCAL 


MASTER SURFACE/HULTIPLE CAVITY COUPLING FACTORS ,VLNM. ARE CALCULATED 
FOR THOSE STRUCTURAL/ ACOUSTIC MODAL COMBINATIONS THAT HAVE 


SIGNIFICANT CONTRIBUTION TO 


SOLUTION 


INTEGRATIONS ARE 


311. 

312. 

C* 

C* 

NUMERICAL. 

1 4 

. . - ... ; 1 i 

313. 

c* 


i 

314. 


I W = 2 

l * 


DO 100 IS*2,NMS 
IF(ISTYRlISl.EG.O) GOTO ICQ 


IFIIPREC 1) .EQ.l.AND.NSOATCISl.NE.O) GOTO 

IR -NST q P( I s > 

RE AD(L9»IR )( (UM(I ,J> ,1 = 1,3) ,J = 1 ,NMI IS II 
READ(Ll5'IR)BNDWM 


C* NOTE THAT THE AMNCNSM,ll ARRAY IS USED TO { 
C* NORMALIZE THE STRUCTURAL MODE SHAPES SUCH 1 


C* GENERALIZED MASS IS 1.0 

DO 10 KMM=l,NM( Is) 

io call norms (amn <mwm , n , is ,mwm> 

c**** SKIP IF SURFACE T YPE DOES N OT USE BPQ 

30.10.20.3 


EFFICIENTLY 
THAT THE 


DO 60 MWM=1,NM (IS) 
Mil 


DO 50 NWN = i ,NAM 
VLNM( NWN )=C.O 


C**»* UsE B ND yM AND BNDWN TO LIMIT LNM CALCULATIONS TO SIGNIFICANT TERMS 
C 


WC = ( W NMC ( NWN ) ♦ WM ( 1 ,MWM I ) / 2 • C 

DO 35 NOB ; 1 , NTOB 








ORIGINAL PAGE ESI 

OF POOR QUALITY 


IF (CENTF (NQe I . G T . U CJGOTO 36 


CONTINUE 

C ON TINU E 

M=N03 

_IFJ UC-UM( 1,MUM ), 6T» BN0MH IN0B. l) >G 0T0 50 
IF CWN t 1 ,MUM »-UC.GT. 6 N 0 UM(NCe, 2 ) IGOTO 5 O 
IF ( WC -WNMC (NUN ) .GT.BNOUN iNOB. 1 ) IGOTO 50 


IF( WNMC(NU N )-UC.GT.BNOUN(NOe,2» IGOTO 50 


C#*** 


37 

CONTINUE 
DO 40 I=1,MNSS 



IFiMASSURd ,IS J.EQ.O) GOTO 5a 
I<;yRzMASSUR(I»IS) 

• 


NVOL=lSV(isUR) 

IF(NV.GT.1ITHFN 



IR=(NPROBN-l)*NAMT*NVT-» (NVOL-1 1*NAMT*NUN 
REA0(L5’IR)PNMC 


EL 

JENO I F 

VLNH( NUN ) - VLNM (NUN ) SURI(IS,ISUR * NV OL * MUM , NUN « IU ) / A M N« MUM, 1 1 

_I_F lAB S(VLNH(NUN))»LT«ZERO)V LNM (NUN ) - C . 0 

VLNM( NUN J= VLNM (NUN )/ AREA (IS I 


50 

CONTINUE 


XF=f 1S-1 


URI TE ( L7 

6 C 

CONTINUE 

ICC 

CONTINUE 

111 1 

CONTINUE 


RETURN 

C $****##**#**$$ $*##*$*$****#****#**#***$#** 3*** ********* #***«* 

SUBROUTINE RJACAL 


IJACAL CALCULATES THE JOINT ACCEPTANCE FOR MODAL ANA L YSIS 
ilVEN A RANDOM EXTERNAL PRESSURE FIELD 


DIMENSION DX(8),DA(8j 

NGP- 8 

IW = C 

NGPl=NGP/2 


CALL GLO(DA,DX ,-l.C.l.O.NGP ,NGP1 ) 
DO IDO IS=1,NMS 


IF( ISTYP(IS ).EC.C> GOTO 100 
I Su R- 1 S 


NVOLro 

tF OATA qn MASS STORAGE, THEN SKIP 
IF ( IPF ( I S ) .EQ • C) GOTO 100 

C**** READ IN MODAL RESPO NSE OaTa 

IR=NSTCR(TS) 

RE AO ( L9 * I R ) UM 


REA0(L15*IR>BNDUM 
NOTE THAT THE AMN(NSM,ll ARRAY IS USED TO 


.* NORMALIZE THE STRUCTURAL MODE SHAPES SUCH 
'* GENERALIZED MASS IS 1.0 


NEXT SURFACE 


EFFICIENTLY 


THAT THE 









oHmmx 

of poor quka -i V 


_3_98_. DQ m HMH=1.NM (IS) 

399. 10 CALL NORMS I AhN <MUM , 1 >, 1$ ,MyM) 

4 00 • C»« 4» BRANCH TO >NA LYTIC CALCULATION f>F RJA 

401. C**** IS IN FOURIER SERIES FORM OR IS IT IS 

402 . IF_CJP£J I S) .EQ.4IG0T0 60 

403. GOTO) 60, 60, tO, 30, 30,30.60,60) .ISTYPtlSI 


-THE M ODE DE S CRIPTION 

BE ANALYTICALLY CALCuLAT 



^ U'Y • 

4 05. 
4 06 . 

c 

c***» 

NUMERICAL CALCULATION 

OF RJA 

_ .. . ... . _ . . 1 

* 

'! 

407. 
408 , 

30 

CONTINUE 

00 50 MUMri.NM(IS) 



r 

4 09. 
410. 


00 40 NOB =L BAND .MBAND 
RJA I NOS J =0.0 


1 

4 I ; 

411. 


IF 4CENTF 11 NOB )-UMtl ,MUM) 

.GT.BNOWMINOB, 1) )GOTO 

40 

/ 5 

412. 


IF ( U M 1 1, h'WM ) -CENTF ( NOB ) 

• GT . BNOUM (NOB ,2 ) >GOTO 

40 


CALL SLXf AA.HR.IS) 

H3-C8B-AA)/ 2 .0 

G:S=*BB*AA)/2.0 


os=o.a 


t 

00 8 L=1,NGP 
XM=H3*DXIL) *63 


) 

AK=H3*DA(L) 

CALL SLYIC2.02, 

XM.IS) 


Hlr CD2“C2)/2.0 
G 1 = ID 2*C 2 ) / 2.0 


01=0. c 


44 9. 
450. 


451. 

452. 


DO 6 1=1, NGP 
Ul=HI*OX(I ) -»G 1 


A I =H 1*0 A I 1 ) 
Cl =A A 


01=63 

H2=(01-C 1 ) / 2 . 0 
G2=tDl*Cl)/2.C 
02=0. n 


00 2 K = 1 » NG P 


UKrH*OX( K )+G 

CALL S6E0M(XM,UI,XV,YV,ZV,GFC,AJP,IS,ISUR,NV0L, 

IW) 

CALL SGEOMIVJ,WK,XV,YV,ZV,GF,AJ, IS ,ISUR,NVOL,I 
QrQ+DAIH )*SIMIXM,UI »IS»MWM)*SIMIVJ»WK,IS»MWM)*G 

U) 

F*GFC* 

AJ*AJP*PFCF<XM,UI,VJ,WK ,CENTF(NOB ) ,is, 
02=Q2+A j*H*0 

IW) 

Q1 = 01-»AI*02 
03=Q3+AK*Q 1 


I F I A B S 1 0 3 » . L T . ZERO I Q 3=0 . 0 













ORIGINAL PAGE CS 
OF POOR QUALITY 


45.5... R.J A .< N.QES ) J »«2^ABE AllS J»*2 

456 . 40^ CONTINUE 

457 . IR=IN$T0Rt I.S > I *N.S MJLlMMH 

458. WRITE (LIO’IRIRJA 

459. . _50 ...CONTINUE 

*"460. ' GOTO 100 

461. C 

462. C 

4 6_3 . C*** » A_N A L Y T I C ft L_C.AL_C.ULA T.I.QN_OL_RUA. 

464 . 60 IF | IPFl IS) .EQ. 4 1 CALL PFCALIIS? 

465 j»_ IF < IPFI I S) .EQ.4)G0T0 1 00 

466. " IFI ISTYP<IS).NE.2.AND.iSTYP(IS j.LT.7) CALL ANJAFSIIS) 

467. I F ( ISTY P <JJ ) .EQ.2.CR. ISTYP < IS ) .GE .7 ) CALL ANJASSlIS) 

4*68. TOO' CONTINUE 

469. _li 1 1 RETURN 

470. c ******************************** ****** ****** ******** ****** ****** 

471. FUNCTION SURI CIS .1 SUR »N VOL t HU M ,NWN . IW ) 

472. C* 

473. C* 

474. C* NUMERICAL INTEGRATIONS FOR ALL PARAMETERS EXCEPT THE J0I N T 

47:5. C *_ ACCEPTANCE ARE OBTAINED BY SURI WITH GAUSSIAN QUADRATURE 

476. C* THE INTEGRATION IS TWO DIMENSIONAL AND CARRIED OUT IN THE SURFACE 

477. C» ELEMENT * S CnnROIN ATE SYS T EM, THE INTEGRATION RE Q UIRES 

478. C* APPROPRIATELY DESCRIED SURFACE LIMIT$.THE SURFACE INTEGRATION 

479. C» JACOBIAN, AND THE GEOMETR Y CORRECTION FACTOR. THE SUpFACE LIMITS 

480. C* ARE SET IN SLX AND SLY. THE JACOBIAN ANO THE GEOMETRY CORRECTION 

48 1_. C* FACTOR AR E CALCULATED IN SGEO M. 

482. DIMENSION D X <6),DA(3) 

48 3. N GP-8 

484. NGPl=NGP/2 .. " ” " 

485 . CALL G LO ( D A ,0X .-1.0,1 .0 ,N GP tNg PJJ 

486". IF ( IU.EO.l) CALL OL X I AA ,BB , ISUR > 

4 87 . IFtIU.NE.il CALL SL X I A A .BE , ISUR ) 

488. H1=IBB-AA )/2. 

489 . Glr ( BB + A A ) / 2. 

490. Q1 = 0. 

491. iO 4 1 = 1, N6P 

492. UI = H1*0XII ) *G 1 

493. AIrHl*DA(I) 

494. IF ( IU .EQ • 1 ) CALL 0LY(C,0,UI*ISUR) 

__ 495 . IF 1 1 U «NE . 1 ) CALL SL Y iC ,D ,UI , ISUR ) 

‘496. Hr(D-C)/2. 

497. G = (0*0/2. 

498 • Q=Q. 

49 9 . DO 3 _J =1, NGP 

500. VJ=H*DX( J)*G 

50 1^ 3 Qs Q + D A t j 1 *F (Ul , VJ , I g , IS t)R , NVOL . IW .NWN.MWMi : - 

5 02. 4 C1=01«AI*H*Q 

5 03. SUR I-Cl 

504 • RETURN 

5 05 • C *♦» ♦*♦* »»** **» » »»*** *** ♦*»» ♦♦»»» »*♦♦♦» * * »»»**»»»»»***»»**♦**» * 

506 • ' SUBROUTINE GLO (DA » DX , C » 0 ,N GP » NGP1 ) 

507 . D IHEN S ION D X (NGP) « D A ( NGP ) . X X t 8 ) . AH 8 ) 

5g6 . DATA (XXII ) t Al (I), 1 = 1,4)/ 

509. £ .9602898564, .1012285362 

510. £, .7966664774, .2223810344 

_511 • C . .5255324099, .3137066458 
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r. 





LtJL, JA3A6JL£4^JJS2.6.6 11613/ 

513. DMC=0.5D0*(D-C) 

5_i4* 0PC=Q.500*1D*C > 

515. 00 2 I = 1,NgP1 

51 6 . Nlr(NGP+l)-I 

517. OX III =-DMC*XX ( I >*DPC 

518 . OXtNliSQMC»XXU )*DPC 

519. DA I I > =DMC*Alf I ) 

520 • 2 0A | NI)=0MC»AHI) 

521. RETURN 

5 2 2. c »»»♦♦♦♦»*♦» »»» »»»*»»****»»♦»»»*»»♦♦»»♦*»*♦»♦»»»» »»»»»♦♦»»»♦»»»»»»»♦»♦» - 

523 . FUNCTION F (XI ,YI , IS, ISUR ,N V OL , IW ,NW N ,MU M> 

524. IFIIW.NE.1) CALL S GEOM j XI . Y I. X V . YV . ZV .GF. a j . I S . 

525 . CIS UR, NVOL ,IU ) 

526 . 60T0I 10.20. 30.40).IW 

527. C**** CALCULATE LNM FOR HULCV 

52fi. 10 CALL 06F0M(XT.YI.XV.YV.ZV.IgUR.N»0L ,A J> 

529. F = OIMCXI ,YI , ISUR »MWMJ*FN CAL *XV»YV ,Z V , nV OL , NWN > * A J 

530. GOTO 1111 

531. €***♦ CALCULATE LNM FOR STRUCTURE /MULTIPLE CAVITY 

532. 2n F= SlM< X I . vl . I S .MUM ) *FN t XV YV . ZV .NVOL .NU N)*GF»A J 

533. GOTO 1111 

534. C»»»* CALCULATE CN FOR ACOUSTIC DAMPING 

535. 30 F=FNCXV,YV,ZV,NV0L,NWN)**2*GF*AJ • 

5 36j> GOTO 1111 

537. C***» CALCULATE QMW FOR GENERALIZED FORCE IN FREQUENCY DOMAIN 

538. 45 F = S IHUI.VI.1 S. MWM )»PFCF { X C. YC .XP . YP ,W C . I S . IW ) *6F* A J 

539. GOTO 1111 

q40« C*»»* 


54 j. 1111 RETURN 

542. C**» * »»»»»»»♦»♦♦»»»»»»»»»»»»»»»»♦»»»»♦»»♦»»♦♦»»»»»»»»»»» »*»»» # * * * * * * 



543. 
544 . 

C* 

C* 

SURFACE INTEGRATION L INI TS : SL X, SLY 

SURFACE TYPES: #1. RETANGULAR SHflPE WITH FOURtER SERIES MODE 


545. 
546 * 

C* 

C* 

M2. 

SHAPE DESCRIPTION. 

THIN. HOMOGENEOUS. RETANGULAR PANEL WITH 


547. 
548 . 

C* 

C* 

U 3. 

SIMPLy SUPPORTED EDGES. 

CIRCULAR SHAPE WITH FOURIER SERIES MODE 


549. 

55Q. 

C* 

C* 

#4. 

shape description. 

THIN. HOMOGENEOUS, CIRCULAR PANEL WITH FIxED 


551. 

552. 

C* 

C* 

45. 

EDGES . 

FRAME STIFFENED ORTHOTROPIC WhOLE SHELL 


553. 

c* 

#6. 

FRAME STIFFENED ORTHOTROPIC SHELL SEGMENT 


554. C* 

555 . C ******************* ***************************** ******************** 

556 . SUBROUTINE SL X C A A , BB , IS UR > 


557. C* 

556. C« THE INTEGRATION LIMITS IN THIS COORDINATE DIRECTION A rE CONSTANTS 


559. 
56 C • 

C* 

GO TO ( 10,20,30. 40, SQ.fcO, 70,801 tISTYPlISURl 

561. 


SURFACE ELEMENT TYPE «1. 

562. 

10 

A A- D .0 

563. 


BBrSNODCt 2, 1,ISUR) 

564. 


GOTO nil 

565. 

c**»* 

SURFACE ELEMENT TYPE #2. 

566 • 

2C 

AA = SNODCC 4,1, ISUR) 

567. 


BB=SNODC( 5,1, ISUR) 

568 . 


GOTO ini 




0 
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5 69. C»*»* SURFACE ELEMENT TYPE 0 

570. 3C CONTINUE 

__ 571. AA = C; .0 

572 • 3B=SN0QC(2, 1, I SUR ) 

573 . GOTO 11 1 1 

574. (>**• SURFACE ELEMENT TYPE #4. 

575. 4Q CONTINUE 

576. AA=Q.O 

5 77. Be = SN00C(2.1.ISfJR) 

578. GOTO 1111 

579. C*#** SURFAC E ELEME NT TYPE 0S, 

seo. 5 q AA=SN0DCI4, l.ISURJ 

_5e K 3B-SN00C( 5, 1. iSUp) 

" r ' 582. GOTO 1111 " ~~ 

58 3. C»»»* SURFACE E LEMENT TYPE 46. . 

584. 60 GOTO 50 

5 6 5 . C»»»* SURFACE ELEMENT TYPE 47. 

586. 70 GOTO 20 

587. C»»»» SURFACE ELEMENT TYPE 08. 

588. 80 GOTO 20 " 

5.89. 11 1 1 RE TURN 

590. C^#*** 1 ** **$**$*« <t ********** #i* ****** ****$***** *********************** 

_ J59 1. SUBROUTINE SLY CC.D.UI.ISUR) 

592. C* 

593. C* THE INTEGRATION LIMITS IN THIS COORDINATE OIRECTtQN CAN BE CONSTANT 

594. “c* OR A FUNCTION OF THE FIRST COORDINATE 

595 _• C = u I 


596. 

597. 

c **** 

~ “To " 

GO TO ( 10,20, 30. 40*50,60, 70.801 .ISTYPIISUR) 
surface element type 01 . 


598. 

599. 

c=c.o 

D- SNODC ( 3,2,ISUR) 


600. 


GOTO 1111 


601. 

c***# 

surface element TYPE 02. 


602. 

20 

C=SN0DCI4, 2,1 SUR) 


603. 


OrSNODC ( 6 . 2 . 1 S UR ) 

* 

60<*. 


GOTO nil 


605. 

c 

SURFACE ELEMENT TYPE 03, 


606. 

30 

CONTINUE 


607. 


C=0.0 


eoe. 


0- SNODC <3, 2, IS UR) 


609. 


GOTO nil 


610. 

C**** 

SURFACE ELEMENT TYPE 04. 


611. 

40 

CONTINUE 


612. 


C = d.Q 


613. 


0=2*PI 


614. 


GOTO nil 


615. 

c**** 

SURFACE ELEMENT TYPE #5. 


616. 

50 

continue 


617. 


Cr ARC OS « SNODC { 4 , 2 » I SUR ) /SNO DC 1 3 .2 , 1 SUR ) ) 


618. 


Dr A PCOS ( SNODC ( 5, 2, 1 SUR) /SNODC <3, 2. 1 SUR) ) 


619. 


IF <D.LT.ZER0)D=2.*PI 


620. 


IF C SNODC 15,3,1 SUr) .LT.O. )D = D-*PI 


621. 


GOTO nil 


622". 

~c ***"*" 

SURFACE ELEMENT TYPE 06. 


623. 

60 

GOTO 50 


624. 

c**** 

SURFACE ELEMENT TYPE 07. 

— p. 

625. 

70 

GOTO 20 



ORIGIN AL p /; q ;> 

0F poor quality 


AZ< 6 _._ 
627 • 
6 26 


-£ * ***_ ... .iUEL«.C.m £HE JlJ-J..YP-E„ J. &>. 


8C SOTO 20 

c»»*» 


629. 

mi 

RETURN 

63 0 . 

c I**************************************** **************** ********** 

631. 


SUBROUTINE S6E0HIXI ,YI,XV,YV,ZV ,GF , A J ,1 S , ISUR ,NVOL, IW ) 

6312. 

c* 


633. 

c* 


634 . 

c* 

S6E0M CALCULATES SEVERAL 6ECMETRY RELATED FACTORS FOR EACH 

635 . 

c* 

SURFACE 

636 • 

c* 

1. ThE THIRD DIMENSION, ZC. OF THE SURFACE AS A FUNCTION OF XC.YC 

637 . 

c* 

2. THE JACObIAN Of ThE SURFACE’S COORDINATE SYSTEM AT XC.YC, ZC 

638 . 

c* 

3. THE POSITION OF THE SURFACE POINT XC.YC, ZC IN THE ORIENTATION 

639 . 

c * 

COORDINATE SYSTEM OF THE ADJACENT SUBVOLUME 

640. 

c* 


641. 

c* 


64 2. 


GOtOI 10.20. 30.40.50.60.70,80) .ISTYP (ISUR) 

643. 


SURFACE ELEMENT TYPE tfl. 

64a • 

10 

zc=a.o 

645. 


XC = XI 

646 • 


VC-YI 

647. 


AJ=1.C 

648 . 


GF=1.0 

649. 


GOTO 200 

650. 

c**** 

SURFACE ELEMENT TYPE #2. 

651. 

20 

CONTINUE 

652. 


GOTO 10 

653. 

C«*** 

SURFACE ELEMENT TYPE *3. 

654. 

3C 

ZC=0.0 

655 . 


XC = XI 

656 . 


YC=YI 

657. 


A J r l . 0 

658 . 


GF- 1 • C 

659. 


GOTO 200 

660. 

r**** 

SURFACE ELEMENT TYPE 44. 

661. 

40 

ZC=0.C 

662. 


XC=XI*COSI YI ) 

663. 


YC=XI*SIN(YI) 

664. 


GF=1.C 

665. 


A J-XI 

666. 


GOTO 200 

667. 

C**** 

SURFACE ELEMENT TYPE #5. 

668 • 

50 

CONTINUE 

669. 


XC=XI 

670. 


YC=SN0DCI3.2.ISUR)*SINIYI) 

671. 


ZCrSNODCI 3, 2, I SUR )*COS 1 VI ) 

672. 


A «Jr SNOOC (3.2,1 SUR ) 

673. 


GF = 1.0 

674. 


GOTO 200 

675 . 

C^*** 

SURFACE ELEMENT TYPE #6. 

676. 

60 

GOTO 50 

677. 

C**** 

SURFACE ELEMENT TYPE *7. 

678. 

70 

IF ( SC ( 2, I S ) .LT .0. ) GOTO 10 

679. 


R=SC( 2 -IS) 

680. 


ZC=(R«*2-YI**2)**0.5-fR*42-CSN0DCI3,2,IS) )**2»**C.5 

681. 


XC=XI 

6 3 2 • 


VC-YI 


, 04 *^ 
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AJ= 1 .C 

60T0 200 

SURFACE ELEHENT TYPE #8. 

80 GOTO 20 


C***» CALCULATE 
200 CONTINUE 


IF< IW.GE •** 

X=STM( 1 . l r 

Y=$TM<2» 1, 

Z~STM( 3» It 

XP=X-VORG( 

YP=Y-VORGt 


2P=2-V0RG( 

XV; VTM( 1.1 

YV=vTM( 2,1 
ZV- VTM( 3,1 


nil RETURN 

C**4>* *********** 

C* OPENING INTE‘ 
C* OPENING TY 


THE MASTER SURFACE ANO SUbVOLUME COORDINATES 


)GOTG mi 
ISUR)*XC-»STM(1«2 . 
I SUR ) *XC*STM ( 2 » 2 , 

ISUR )*XC«STN (? V 2 , 

___ 

2 .NV 0 L) 


3 1 N VOL ) 

. NV 0 L>«XP^VTH( 1,2 

,NV 0 LJ*XP 4 VTM( 2,2 

,NV 0 L)*XP-»VTM( 3,2 


» 44 4444444 4 44 4*44 

G RATION LIMITS 
PES i « 1 . RETANG 


. CIRCLE 
CONCEN 


IS UR >»YC-»STM( 1.3 tISUR)»ZCf S 0 RG< 1 « ISU R) 
ISUR )*YC ♦STM ( 2 , 3 * ISUR ) *Z C* SORGI 2 * 1 SUR ) 
ISUR )»yC^STM ( 3 . 3 .ISUR)»ZC^S 0 R 6 ( 3 . ISUR) 


,NVOL)»VP^VTM( 1 , 3 ,NV 0 L)» ZP 

t NV 0 L>*YP 4 VTM< 2 , 3 ,NV 0 L>*ZP 
,NV 0 LI*YP 4 VTM< 3 n.NV 0 L)* 2 P 


44444444 4444 44 4 4 44 44 444 4 44444444 444 


TRIG CIRCULAR ANNULOUS 


C 44 44 44 4 444 44444 444 4 »44 44444 4 *4444444 4444 4444 4444 444 444444444 444 

SUB ROUT I n E 0 LX (AA,BB,ISuR > ” 

C*444 INTEGRATION Lj^lTS IN THI S COORD INATE DIRE CTION AR E C ONSTAN TS 
GOTO I 10 , 20 , 30 ) ,IOTVp < ISUR ) 

C*»** OPENING ELEMENT TYPE # 1 . RETANGLE 


10 AA=0.0 

B8=0N 0DCI2 ,1,ISUR) 

ini 

ING E 
20 AA=Q.O 

BB =ONODC( 2, 1,1 SUR ) 

GOTO nil 

C*»*» OPENI N G E L E M ENT TYPE » 3. Co NCEN tR IC CIRCULAR ANNULOUS 

3fl AA=ONOOCC 3,2, ISURI ~ 

BB-ONODC I 2, 1,1 SUR) 


# 3 . C ONCENtPlC CIRCULAR ANNULOUS 


nil return 

£444444444444444444444444444444444444444444444444444444444444444444 

_ SUBROUTINE oly (C, oTui,ISURV 

4 


' INTEGRATION LIMITS IN THIS COORDINATE DIRECTION CAN BE CONSTANTS 
' OR A FUNCTION OF THE FIRST COORDINATE DIRECTION 


$4 

• 

GO TO ( 10, 20, 30) ,IOTYP( ISUR ) 

. r .„ s 

55 

« c**** 

opening element type ni, retangle 


56 

57 

10 

• 

c-o.o 

D=ONODC( 3*2, ISUR) 



GOTO nil 

OPENING ELEMENT TYPE « 2 . CIRCLE 


738 

739 


£?*** 





20 .C.-.O « 3 

D=2#PI 

Goto 1111 


C **** OPENING 
30 C = 0.0 


D=2*PI 


ELEMENT TYPE 


CONCENTRIC CIRCULAR ANNULOUS 


***** 

1111 RETURN 


£*****************************************£*«**** **** ******** ******* 
SUBROUTINE OGEOM C XI . Y I . XV . Y V . ZV . ISU R . NV OL . A J) 


OGEOM CALCULATES THE VOLUME COORDINATE SYSTEM POjNT XV*YV*ZV 
FROM THE OPENING COORDINATE SYSTEM POINT XC.YC 


c «*** OPENING TYPE «!• rEt*NGLE 
10 XC=XI 


9 



GOtOC 10«20«30» .I0TYP1 IS UR ) 


YC - Y I 

AJ=1»0 

GOTO 200 

C»*»» OPENING TYPE #2» CIRCLE 

20 xC=XI*COSiY'I| 

YC=XI*SIN< YI > 


= XI 

GO TO 200 

C**ft* OPENING TYPE « 3.C0NCENTRI C CIRCLES 
30 GOTO 20 


200 CONTINUE 
ZC-0.0 


XrQTM ( 1 1 1 , 1 SUR )*XC*OTM< l,2 t ISUR)*YC*0?M(l,3,ISUR)*Zc*0ORG<ltlSUR) 
Y- OTM < 2 1 1 » ISUR )*XC+OTM (2.2 .ISUR ) »YC ♦OYM ( 2 . 3 . I SUR )»ZC+ OORG( 2. 1 SUR ) 
Z=OT»( 3, 1, iSUR)#XC*0TM(3,2 , IS UR ) *YC*OTM ( 3 1 3 , ISUR >*ZC* OORG f 3 ,1 SUR » 
XP=X-V0RG1 1 » N VOL ) 

YP-Y-VORGI 2~,NV0L ) 

ZP=Z -VORGI 3. NVOL ) 


XVrVTM ( 1 ,1, NVOL >*XP*VTM «1 ,2 ,N V OL ) *Y P + VTM ( 1 , 3, NV OL) *ZP 
Y V_= V TM(2,1.NVQL)»XP»VTM(2, 2 .NVOL ) *Y g + VTMt 2 . 3. NV OL) »ZP 
zV=VTh< 3, l.NVOL >*XP-»vTM (3,2 .NVOL 1 *Y P*VTM( 3 , 3,NV 0L» *ZP 
RETURN 


C ****** ft*** ******************************************************* 
FUNCTION SIM(XC,YC,IS.MUM) 


STRUCTURAL MODE SHAPES FOR EACH SURFACE TYPE 


IM=0.0 


MrWMC 2 » MWM ) 
N- WM ( 3, MWM) 


GOTO( 10.20,30,40,50*60,70,801 ,ISTYp(IS) 

TYPE »1. REJ ANGULAR S HAPE WITH FOURIER SERIES mODE DESCrIPtION 
XL = SNODC( 2, 1,1 SI 


Cft*** 


10 


YLrSNQOCt 3 r 2. 1 S > 
00 11 J-l f MX 
DO 11 K - 1 » NX 















SIM=SIM*BPC <J,K ,MWM l*SIN < J#P: 


GOTO II 1 1 

_C TYPE »2. TH IN, HOMOGEN EOUS , RET ANGULAR PANEL WITH SIMPLY 

C**»* SUPPORTED EDGES 

20 CO NTINUE 

SlM=SlN<M*PI*XC/ SNODC <2,1, IS > ) *S IN < N*PI*Y C/ SNODC ( 3 , 2, I S » ) 

GOTO 1111 

C***'p TYPE # 3 . CIRCULAR SHAPE WITH FOURIER SERIES HC°E DESCRIPTION 

3C GO TO I D 

C* TYPE #4. THIN ^HOMOGENEOUS , CIRCULAR PANEL WITH FIXED 


40 CONTINUE 
N-N-l 


SKN=<WM< 1,MWM )/SC< 1,ISJ >**0.5 

A1=S K N»PI 

A2=SKN*PI/SN0DC<2,1,IS)*XC 

SlM = SIN< N»YC)»( B J(A2.Ni+BJ<Al.N)/BHAl.N>»BI(A2.N>) 

GOTO 1111 

SURFACE TYPE 85. FRAME STIFFENED ORTHOTROPIC WHOLE SHELL 


50 CONTINUE 

SIM=SIN<M»PI«XC/SN0DC(2.1.IS> )*C O SC tN-l)»YC) 

GOTO 1111 

C *, * * * SURFACE TYPE 86 . FRAME STIFFENED ORTHOTROPIC SHELL SEGHrNT 

60 AL-ARCOS<SNODC<6»2,IS>/$NOOC<3 t 2»IS ») 

S Im=SIn<M»PI*XC/SN 0DC(2,1,IS> ) »S IN f N»PI»Y C/ AL > 

GOTO 1111 

C »♦*» SU R F ACE TYPE 87, rrN STY L E FE DATA hATCH 

70 R=SCC2,IS> 

x *Lr x p"‘ SN0D C<2, 1 ,IS)-8 PQ<. 1 , 6 ,MWM)** 8 PQ Cl , 6 ,M WM>) 

ft. t RVlT.O. I YA= YC- C SNODC <3,2 ,1 S V-B PO < i~,9 ,MWM > -BPQ < 1 , 7, MUM > > 
(R.GT.Q. >YA= <R*ARCOSCSNODC< 3, 2, IS >/R>*BPC <1,9, MUM)* 


£ BPQC 1»7,MWM ) )-R*ARCoS IYC/R) 

SIMr SINt M»PI» X A /BP C C 1 ,6 ,MWM ) > »S IN ( N*P I* Y A/ B PQ < 1 . 7, MWM > > 

IFTxA.LT.O.O.OR",XA.GT,BPO<1 ,6 , MWM) 1SIM=C.0 
IF < YA .LT.C.O.OR . YA.GT.BPO <1 ,7, MWM> )SIM=C.G 

go t6 ‘ 1111 

C*» »» TY PE AS , ORTHOTROPIC RET A NGUL AR PANEL WI TH CLAMPED EDGES 

80 CONTINUE 

A P-0, 6 61 

AC-0,661 

_J_F t M.E C, 1 >A P= ,63 0 

IF < N , E Q • 1 ) A C - , 6 30 

XA =pI*<M*.5)*XC/SNODC(2,l,IS) 

YA=PI*<N* .5>*YC/SN0DC<3,2, 1$) 

SIM-A P» < COSHC X A1«C0 S < XA1 - STNh<XA>-»SIn(XA ) I* 

£ AC*<C0SH < YA ) -COS < YA » - SINH < YA I *S IN <Y A) ) 

GOTO 1111 ... 


_ n 11 R ETU RN . 

'c****i ********* ********************************* ** ***************** 

F UNCTION 0 1 M l X C , Y C , IS UR , MWM) 

C* 

c* 

■C* OPENING MODE SHAPES 

MZWMOi 2,MWM,ISUR ) 




c«*** 

2G 


C**** 

3n 


ORiGI^A^ 5 i&si'j) '•■M 
OF POOR QUALITY 


Nr WH O 1 3 
OIM=O.Q 

GOtO< ID, 2D, 30) ,I0TYP r ( ISUR~) 

OPENING ELEMENT TYPE B 1 »R ETAN 6LE 

0IM=C0S(M*PI*XC/0N0DC(2,1 , IS UR ) ) *COs CN*PI* YC /ONODC <3,2,ISUR) ) 
GOTO 1111 


OPENING ELEMENT TYPE #2. CIRCLE 
B=WMO( 1,MWM,ISUR >*XC 


OIM=CGS(N*YC>*BJIB,N) 
GOTO 1111 


OPENING ELEMENT TYPE #3. CONCENTRIC CIRCULAR ANNULOUS 

CONTINUE 

B " £l M 0 1 1, MUM, IS UR ) * X C 

B IrWMOl l.MWH,ISUR)*0N0DC(2,i,ISUR ) 


E=BJPCB1*N)/BYPIB1,N> 
OIM=COS(N*YC)*(BJ(B,N)-E*BY (B.N>) 


GOTO 1111 


C**** 


1111 RETURN 

FUNCTION FN(XV »YV,ZV, NVOL, NWN) 


FN CALCULATES THE MULTIPLE CAVITY ACOUSTIC MODE SHAPES 


IFINv.NE.il GOTO 10 

F N = FNCAHXV,Ytf,ZV,NVOL,NUN) 

GOTO Hll 

10 FN = 0 . 0 

N=INDPNtNUN,NVOL>-l 
DO 50 I r 1 , N AMM C 


NrN+1 

FN=FN-*FNCAL(XV,YV,ZV,NVOL.N )*PNMC (I )/ AMN (N, NVOL ) 


5C CONTINUE 
1111 RETURN 

£******************************** **#**«*-* #«****<'******** ************* 
FUNCTION FNCAL (X V , Y V , ZV ,N VOL ,NW N ) 


C* FNCAL CALCULATES THE ACOUSTIC MODE SHAPES Of T H E SUBVOlUmES OF 
C * The MULTIPLE CAVITY SYSTEM. XV. Y V.ZV ♦ ARE ALWAYS IN THE ArOUSTlC 

* COMPONENTS ORIENTATION COORDINATE SYSTEM (RET ANGULAR ) • THE MODE 
» SHA pE S Abe ALL NORMALIZED SUCH THAT THE GENERALIZED MASS OF THE 

* SUB VOLUME ACOUSTICS IS 1.0. BY THE NORMALIZATION FACTOR AMN(NAM,NV) 


C**** 

10 


M=IN T(WN(2, NWN .NV OL ) ) 

Nr I NT ( WN ( 3 , NUN ,N VOL > > 

IS= INT(WN( 4, NWN, NVOL ) ) 

GO TO (10,20,30,40) .IVTYP(NVOL) 

VOLUME ELEMENT TYPE «1. RET ANGULAR PARALLOPIPED 
CONTINUE 

pNCAL=(C0SCm»PI»XV/VN0DCC2.1.Nv0L) )»C0S(N»PI»YV/VN0DC(3,2.NV0L 
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... iiu 

912. GOTO 1111 

9 i 3 • C »♦» » VOLUME E L E ME NT TYPE 9 2 . CIRCUL A R CVLlN p p R 

919. 20 CONTINUE 

9 I S . B ETA=(WN( l.NWN.NVOL )»»2/C0»*2-4 IS »P I/VN OO r C 9. 3. NVOL 1 I «»2) 

9lfc. BETA=< AB SI BETA ) )**.5 

9 17 . RR = ( XV»»2+ Vv»*2)»».5 

918. I? (RR.GT.VN00C(2 f l,NV0L))RR=vN00C(2,l,NV0L) 

9 19 « SK N-B E T A*RR 

920. TW=ARCOS(XV/RR ) 

? 21. FNCA L= COS( IS»PI»ZV/ VNO O C(9 , 3.NV0L ) ) »COS (N*TH)»S.i( SkN.m) 

922. GOTO 1111 

923. C*»»« V OLUME ELEMENT 03. ANNULOUS OF CONCENTRIC CIRCULAR cYLINOERS 

929.’ 30 CONTINUE 

?2S • BE TA=(b N( 1, N UN .NVOL )/C0*»2-(IS*PI/VN0Dr(9.3.NV0L))»*2) 

926 . BETA: ( A8 S( EETA ) )**. 5 

9 27_. Rp=(XV»»2*YV»»2)»».S . 

928 . lF<RR.GT.VNODCC2,l,NVOL))RR=VNOOC(2.1,NVOLj 

929. SKN=BETA*RR 

930. TH-ARCOSI XV/RR ) 

93 1_. , RKB=BET A»VN ODC 13 , Z .NVO L ) _ ‘ 

932. FNCAL:C0S<IS*PI*Z’V>VN0DC(4,3,NV0L) )*COS(N*TH)* 

93 3. C (B Jl SkN.N ) -BJPtRKB «N )/BYP (RKB .N)»BY ( SK N .N) ) 

939. IFIBETA ,LT.2Er0>FNCAL=FNCAL*1.0 

9 3s. GOTO 111 1 

936 • C***9 VOLUME ELEMENT TYPE 94. PERTURBED P AR ALLELE PIPED 

_ ? 37. 90 I FJ_Z V.6T.VN00C(4.X.NV0L ) ) ZV =VNOOC ( 4 . 3 .NVO L ) 

938. GOTO 10 

^ 939. C »»»* 

99 0. nil RETURN ' ’ ' 

. 99 1 • _C *** »»»» »» »»»»»» » »»»»»»»»»»»»»»»»»»»»»»»»»»»» »»»»«♦»»»»»»»»»»»»»»«»» 

99 2. ’ " FUNCTION PFCF I XC.YC.XP.YP ,UC, IS *IW ) 

99 3.. C* 


999. 

C* 



995. 

C* 

PFCF CALCULATES THE PRESSURE CORRELATION FUNCTION IFOR RANDOM 

996. 

c* 

FIELDS) AND THE SURFACE PRESSURE DISTRIBUTION (FOR DETERMINISTIC 

997. 

c* 

FIELDS). THE POI NTS XC. YC ,ZC , XP . YP , ZP ARE IN THE COORDINATE SYSTEM 

99e . 

c* 

Op INTEGRATION. 

999. 

c* 



950. 

c* 



951. 



IW = IW 

952. 



GOTO! 10.20. 3 Q) .IPF (IS) 

953. 


PRESSURE FIELD TYPE 91. REVERBERANT PRESSURE FIELD 

959 . 

*0 

PKSWC/CO 

955. 



PFCF=SIN(RK*( XC-XP ) )/ (RK*( *C-XP) ) *S IN ( R K* | Y C-YP ) ) / ( RK*I YC-YP) ) 

956. 



GOTO ini 

957. 

c**** 

PRESSURE FIELD TYPE #2. AERODYNAMtC TURBULENCE 

958. 

20 

RKX=EXI2 f IS)*WC/C6 

959. 



RK Y=EX(9 .IS )*VIC/CO 

96 C. 



PFCF=EXPI -1*EX (1,IS )*P*X*ABS (XC-XP ) >*C0 S I RK X*AB SI XC -XP 1 1 

961. 



$*EXPI-1*EX(3,IS)*RKY*ABSIYC-YP) )*C0 S ( RK Y*A E S CYC -YP ) ) 

9fe2. 



goto nil 

963. 

c**»* 

PRESSURE FIELD TYPE 93. PLANE WAVE FIELD 

969. 


30 

CONTINUE 

965. 



RK = WC/C0*C0S(EXJ1,ISI ) 

966. 



PFCF rCOS (RK *t XC-XP ) > 

967. 



GOTO 1111 


WW-fV^ 9 

bt •-.«* 
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51 


c**** 


1111 RETURN 

C** »»» ♦♦»»»»»«»»»»»»»»»»»»»»»»»»»»»»» »»»»«»»»»»»»»»»»»»»» »»»»♦»»»»» 
SUBROUTINE NORMA (OMNS ,N VOL ,NUN ) 


C* CALCULATES THE NORMALIZATION FACTOR FOR THE ACOUSTtC MODE SHApES 


1 99 

1 99 

1. 

2. 

IF(N.E0.0)EN=2.0 
IF( IS.EQ.0)ES=2.0 

) 

\ 

--- - - - - - — - ... - 

99 

3. 

lF(N.Ee.O.AND.M,EO,l)GOTO 25 

i 


C**** 

10 


2. NWN »NV 

3. NUN.NV 

IS=NINTC WN(4,NUN, M VoL M 
GOTOi 10.20.30) .IVTYP(NVOL) 

VOLUME TYPE # l , RETANGULAR PARALLOPIPEo 
EMsl.O 


ENS1.0 


IF(M.EQ,0)EM=2.0 

IF(N,EQ.0)EN=2,0 


IF(IS.E0,0)ES=2, 
OHNS=(EM*EN*ESy 8 

n 

u 

•0 ) **• 5 


GOTO 1111 

C»»*» VOLUME TYPE 82, 
20 ENsl.O 
ES=1.0 


CIRCULj 


CYLINDER 


RKNM=(WNI I , N WN ,NVOL ) **2/ Cn»»2 -( IgSPI/uNOOCt 4, 3.NV0L ) > »*2)»»0.5 
RKNM=RKNM*VN00CI2, 1,NV0L> 

DMN S= MB JP <RKNM, N )»»2+< 1-N »»2/R KNM»»2 )♦ B J ( R KNM . N)*»?) »En»ES /4 « ) 
**0.5 
GOTO 1111 


25 DMNS-(EN*ES/4, >**□• 5 
GOTO 1111 


C#*** VOLUME TYPE #3. CONCENTRIC CIRCULAR CYLINDER ANNULOUS 

30 SNrl.C 

ES-l.C- 

I- (N.EQ.0)Eu=2.0 

IF( IS.EO.O)ES=2.0 

RHN M=(WN( 1. NWN .NVOL ) »»2/C0 »»2 -( IS *P I/VN ODC ( 4 . 3 . NVOL ) ) »» 2 >**0. 5 
RKA=RXNM*VNODC (4,2,NV0L » 

RKB = RKNH»VNODC (2.1 ,NVOL > ; 

OMNS=(ES*FN/4.0*< I VN00C(2,1 ,NVOL >**2-N**2/RKNM**2)* 

E (BJ(RKB ,N)-BJP(RKB,N)/BYPCRKB,N)*BY(RKB,N) j**2- 


£ ( VNODC C 4,2,NV0LI**2-N**2/RkNM**2 ) 

£ *(E J(RKA,N)-BJP(RKB,N)/BYP IRKB,N)*BY (RKA.N) )**2> )**0.5 


GOTO 1111 
1111 RETURN 


C # # * * 4 4 * * $ * * * * # 4c Jjt * # * Jfc# 4 4 4 4 * 4 44 4 * 4 44 4 4 * £ 30c $ 44 4 4 4 4 4 * 44 4 4 44 * 4 4 4 4c * * 44 4 4 
SUBROUTINE NORM S C DMN , IS UR t H WM 1 


CALCULATES THE NORMALIZATION FACTOR FOR THf STRUCTURA 


Mr I NT ( y M ( 2 » MUM )I 


N=INT(UM< 3 » MUM J I 

GOTO( 10,20,30,40,50,60,70,80) ,ISTYP (ISuR) 


C**** SURFACE TYPE Ml. RETANGULAR PANEL (SINE SERIES) 
10 DHN-l *0 


OE SHAPE 
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G OTO 1111 

C***« SURFACE TYPE #2. RET AN6ULAR HOMOGENEOUS PANEL UITH SIMPLY 
C SUPPORTED EDGES ____ 


20 CONTINUE 

DMNrtSCt 6.1 SUR)*SNOPC 12.1 .ISUR l»SNOOCt 3.2.1 SUR1 /4.1 »».S 

GOTO 1111 

C**** SURFACE TYPE *3. CIRCULAR PANE L (SINE SrRlESl 


30 CONTINUE 


£ 8I<RKA,N1**2> I 

DMN=tOMN*SCl2.I$UR l*AREAtI$UR 11** 


GOTO 1111 

»» SURFACE TYPE ttS. FoAME STIFFENED ORTHOTROPIC y HOLE SHEL 

50 N=N-l 


EN-1 *0 

IFiM.EQ.01EM=2.0 


IF tN.EQ.01ENr2.0 

D M N-l E M*EN/4 .* SC C 2 . ISUR laAREAtlSUR 1 1**.5 


C**** 


GOTO 1111 
SURFACE TYPE 


S T IFFEmEO ORTHOTROPIC SHELL SE6MENT 


tD GOTO 50 


70 1 

i 

3MN=2.**0.5*BPQtl,4 . 
GOTO 1111 

MWM l*BPQt 1 , 5 »MW M 1 

** 
8R 1 

SURFACE TYPE 48.RET 
CONTINUE 

ANGULAR ORTHOTROPIC PANEL WITH FIX E p PANELS 


VMS-SCt 6 f ISURl*SNODC 
lFtM.EQ.llFX=.396 

( 2 . 1 » 1 S UR 1 *S NOD C t 3 » 2« IS UR 1 


IFtN.EQ.DFY 

lFti-.EQ.21FX 




IFtN.EQ.2)FY 
IF tM.GE .31FX 

= .439 
-.437 



IF tN.GE.31FY-.4j7 
DMN=tFX*FY*VMS 1**0. 5 



1111 RETURN 

SUBROUTINE aLI GN (L TYP , tSUR , NV OL . I A , CF 1 


C* ALALYTIC SOLUTION OF LNM • THE SUBROUTINE’S PARAMETER LIST MAY 
C* B E UsEO AS RE QUIR ED TO P RO VIDE THE APPROPRIATE INFORMATION TO 


SOX t SOY t SOZ FoR new ADDITIONS TO THE LIBRARY. 


DIMENSION IAC3)»CFU»3> 

GOTO! 10*20,30,40).LTYP 
C**** ANALYTIC INTEGRATION: SURFACE TYPE 41/ VOLUME TYPE A 1 C LTYPS-1 1 
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Cr«‘»*2»=0NCDC( 3,2 .I$Ur) 


CALL PXFt"R (X2, V2,22,2,ISUR 
CALL PXFER<X3.V*.Z3.3.ISUR 


XPXr 

X2 

-XI 

YPXr 

V 2 

-VI 

ZPXr 

Z2 

-Z1 

XPYr 

X 3 

-XI 

YPYr 

Y3 

-Y 1 

ZPYr 

Z 3 

-Z 1 


.NVOL ) 
.NVOL) 
.NVOL) 


IF I AB S( XPXI.LT.ZERO) 60 TO 
CF ( 1, l)rXPx/ABS(XPX) 


CM2. 1)=X1 

CFC 3, 1)=VN00CI 2.1.NV0L) 


I A ( 1 ) =2 

11 IF (ABS(YPX l.LT .ZERO) GO TO 


CFIl, 1)=YPX/ABS!YPX ) 
CF i 2. D -VI 


CF(3,1)=VN0DC <3.2 .NVOL) 

IAil)=3 

12 IFtABS)ZPX).LT.ZERO) 60 TO 
FI 1,1)=ZPX/ABSCZPX) 


IF (ABS<XPY),LT .ZERO) GO TO 
CF I 1.2)-XPY/ABS(XPY) 

CF ( 2» 2) -X I 

CF«3,2)=VNCDCI2,1,NV0L) 

I A I 2 ) =2 


IFIABS! YPY) .LT.ZERO) GO TO 

CFU.2>=VPV/ABS!VPV) 

CF<2, 2)=V1 

CF(3»2)-VN00C< 3.2.NV0L) 
IAI2)=3 

IFIABSIZPY) .LT.ZERO) GO TO 


CF( 1*2)=ZPY/ABSJZPY) 

CF(2,2)=Z1 

CF! 3,2)=VN0DCI4.3.NV0L) 

IA|2)=4 

IF! IA<1MIA<2> .NE.7) GO TO 
CF ( 1. 3) = 0.0 


CFI2,3)=X1 

CF( 3* 3)-VN0DC( 2.1. NVOL) 


IA I 3) -2 

IF ( IA I l ) ♦ I A ( 2 ) .NE.fc) GO TO 


CF t 1*3) -0.0 
CF(2,3»=Y1 


CF! 3,3)=VN0DC< 3.2.NVOL) 
IA13)=3 


IF(IA(1>+IA(2).NE.5> GO TO 


15. 

It . 

CF<2.3)=Z1 

CF 1 3*3) -VnoDC (4. 3. NVOL ) 

|7. 

;e. 

I A ( 3 ) zk 
19 CONTINUE 
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< 

1 
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1139 » 



GOTO It 11 _ _ 


me. 

c**** 

OPENING/VOLUME COMBINATIONS 2,3,4 REQUIRE THE SAME ALIGNMENT 


1 14 1 • 

2C 

CONTINUE __ .. _ . _ .. 

if 

1142. 

30 

CONTINUE 

- * 

1143. 

40 

CONTINUE ...... 


1144. 



CALL PXFER IXi.Yl, 21,1, ISUR ,NVOLI 

- ? : 

1145. 



CFU.lJrZl ... ... .... . 


1146. 



CFI 1,2) ZVNOCC 14,3, NVOL » 

i !:■ 

X 

1147. 



GOTO 1111 .. . .. . _ _ _ 


1148. 

till 

RETURN 

T '\ l 

1149. 

C ************************************** *********** ************* 

f | , 

11512. 



SUBROUTINE PXFER (XN ,YN,ZN,N ,ISUR ,NVOL > 


1151. 

c* 



- r ; 

1152. 

c* 



I ! ■■ 

1153. 

c* 


PXFER CALCULATES THE LOCATION OF THE N.TH SURFACE NCOE oF ISUR 

i 1 

1154. 

c* 


IN THE COORDINATE SYSTEM OF SUBVOLUME NVOL. 


1155. 

c* 




1156. 

c* 



' 

1157. 



XCrCNODCIN, l.ISURI 


use. 



YC=0N0DC(N,2,ISUR) 


1159. 



ZC=ONODC(N, 3, ISUR) 

' ? 1 

1160. 



X=0TM(1, 1, ISUR )*XC+OTM( 1,2, ISUR )*YC ♦OTM( 1,3, ISUR) *ZC*OORG( 1, ISUR) 

* 

1161. 



Y=0TM12, l.ISUR )*XC*OTM (2,2, ISUR )*YC ♦OTM ( 2 . 3 , ISUR)*ZC* OORG( 2, ISUR > 


1162. 



2=0TMC 3,1, ISUR )*XC 4 0TM(3»2»ISUR ) *YC ♦OTM C 3 , 3 ,1 SUR)*ZC*OORG ( 3 ,1 SUR ) 

y \ 

1163. 



X=X-VORGI 1 , NVOL ) 

i 

1164. 



Y=Y-VORG(2,nVoL> 


116c;. 



Z=Z-VORG( 3, NVOL) 


1166. 



XN=VTMI I,1,NV0L)*X*VTM(1,2,NV0L)#Y+VTM( 1,3,NV0L)*Z 

e !i 

1167. 



YN=VTM( 2, 1,NV0L)*X*VTM(2,2,NV0L)*Y*VTM( 2,3,NV0L)*Z 

u ! 

1168 . 



ZNrVTM(3 ,1 ,NV0L )*X*VTM (3 ,2 *NVOL )*Y*VTM( 3,3,NVOL)*Z 

j 

i 

1169. 



RETURN 


1170. 

c ******************************* ********* ******* * ** **** ** ** *** ****** 

i \ . ■ 
?. . ; 

1171. 



FUNCTION SOX(LTYP,ISUR,NVOL , I A , CF ,NWN »MWM ) 

' 

1172. 

c* 




1173. 

c* 



- 1 

1174 • 

c* 

SOX ANALYTICALLY CALCULATES THE X-COMPONENT OF LNM FOR COMPONENT 


1175. 

_C* 

MODE SYNTHESIS (IN MULCV). LNM IS ALWAYS CALCULATED OVER THE 


1176. 

c* 

ENTIRE OPENING. 

-■j 

1177. 

c* 



< i ' ; 

1178. 

c* 



' * • \ 

1179. 

c* 

ISUR : OPENING NUMBER 


1180. 

c* 

NVOL : VOLUME NUMBER 


1181. 

c* 

LTYP: OPENING/VOLUME INTEGRATION TYPE 


1182. 

c* 




1183. 

c* 

IA 

: ARRAY OF INTEGER CONSTANTS 

:. ' ; ' 

1184. 

c* 

CF 

: ARRAY OF REAL CONSTANTS FOR ANALYTIC INTEGRATION 

s 

1185. 

c* 



• ■* ■ *' •; 

1186. 



DIMENSION I A ( 3 ) , CF (4,3) 


1187. 



ISUR=ISUR 


1188. 



GOTO( 10, 20, 30, 40), LTYP 

i 1 • 

1189. 

c**** 

type »1. RETANGLE/RETANGULAR parallopiped 


1 190 • 

lo 

A = CF( 2, 1 ) 


1191. 



A1=CF(3.1) 

r ■ | ’ 

1192. 



XL-CF (4,1) 

»• ' 

1193. 



I=Wn(IA(1).NWN,Nw0L) 


1194. 



IP=WMO( 2,MWM,I SUR) 

4; - - * 

I 'l l 

1195. 



IF(A8S(XL-A1).GT.ZER0) GOTO 17 



■i) 
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1197 . 

^ 11 _ 98 ._ 

1199 . 

120 C. 


I F 1 1 ♦. I -P .E 0 b-QJJLQ-TQ — U 

IFtl-IP.NE ,c> GOTO 15 

IF ( I»IP.EC .01 GOTO Ife 

li sox=xl 

GOTO 1111 


GOTO 1111 


t S 0 X= 0 . 5 *XL 
G 


17 YCM1=A1-XL 

J lsPI»XL /Al 

TT1=PI*A/A1 
VMMYM-I P/XL 


VNYYC=I/Al 
IFII+IP.EQ.G) GOTO 12 


VM 2 -VNYYC-VHMYM 
IF! ABS( VM 2 J.LT .ZERO JVM 


IFIA.EQ.O..AND.VM2.EO.O. J GOTO 13 
BETArl*TTl 


IF(A.NE.0.C.AnD.VM2.E0.0. JGOTO 18 
VM1-VNVYC+V MMYM 
Vl-l/PI/VMl 
V2-1/PI / VM2 


GAMA = ALPHA-»BETA 

IFIA.NE. 0 ..AND.VM 2 .NE. 0 . J GOTO 19 

12 SOXrXL 

GOTO 1111 
II S 

GOTO 1111 


e S 0 X= 0 . 5 *XL*C 0 S (BETA J 
GOTO 1111 


SOXrO.S*! SIN (ALPHA J*(V1*V2J J* ( -1 J ** ( IP* 2 J 
GOTO 1111 . 


9 SOXrO.S*! SIN (GAMA J*(»l J**i 1 P+ 2 J -SIN (BETA J J* (V 1 +V 2 J 
GOTO 1111 _ : 


IFIIABSII-IPJ .GT.OJ GOTO Mil 
RO-WMO ( l.KUM.ISURJ 


RAsjWNl 1,NWN,N VOL > **2/C0**2 -iWN ll» ,NWN ,NVOL J*PI 
/vN0DC(4.3.NV0L J i**2j 


RAr( ABS(RA J J**n.5 
S-Q.O 


• = 0 N 0 DC( 2 , 1 ,ISURJ 

S0X-BES(I»1.0»C.0.1.0»0.0*R0*RAtS ,EJ 


GOTO ini 

C**»* TYPE * 3 . ANNULOUS OF CONCENTRIC Cl RCLES/ Cl RCUL aR CYLINDER 


30 S0x=0.0 

I=WN( 3.NWN.NV0L J 


IP= WMO ( 3 . MW'm* I SUR J 
IF(IABSII-IPI .GT.OJ GOTO 1111 


RO=WMO( 1,MWM,ISUR J 

RA = ( WNI1 .NWN.N VOL J**2/C0**2-IWN 14 ,NWN ,NVOLJ*P 


C**** TYPE # 2 . CIRCLE/CIRCULAR CYLINDER 

20 s OXrQ.L 1 

I-WNC 3* NWN » NVOL J 
IP=WMO< 3.HMM.ISUR J 
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CO*** TYPE A4.ANNULOUS OF CONCENTRIC CIRCLES/ ANNULOUS OF CONCENTRIC 
co Cylinders 


/VN 0 0CI4. 3 .N VOL > )QO?) 
RASABS(RA) #oQ • 5 
SrONODCC3,2.ISUR) 


f =ONODC! 2, l.ISUR) 

SOX=BES< I, l.Q,O.Q,i .O,O. O.RO.RA.S , E ) -B JP< E» RO » I > /B Y P< E*RO. I 

C OB E S ( I , C . , 1 * , 1 « « C . , R 0 , R A , S , E > 

GOTO 1111 _ _ 


40 s 0 X = 0 • 0 

TSMNI 3.N WN. NVO L) 

~iP-WMO"< 3* MUM * I SUR ) 

IF C IABSCI-IP) .6T.0) GOTO 1111 


RO=WMOIl,MUM,ISUR) 

RA: <W N |_1 , NUN , N VOL > 002>CO»02 -« MN < n , NU N, NVOL l»PI 

6 /VN0DCI4, 3,NV0L> >o*2) 

RAsABS(RA)»Qp»5 

S = ONOoC< 3, 2 » J S UR ) 

_E S QNOOCI 2 , l.IS UR ) 

C1=B JP4R0*E,I WBYP <R0OE,I » 

C 2=BJ P( RA OVN0DC C2t l ,ISUR ) .1 )/B Y P (R A O VNODC < 2 . 1 . 1 SUR ) .1) 
S0xPBESCItl.O»u.»1.0,C.»R0»RA,S,E)-Cl*BESlI»O.»l.»l«»O 

C RA ,S. E)-CZ*BE SJI ,_1.0 .0.0 . 0.0 .1 ,JD .RO, RA .S . E ) *C 1QC2Q 

t 9ESU,l.,C.,6.,i.,Ro,RA,S,E) 

GOTO 1111 


1111 RETURN 

r ************************************************ ******************* 


FUNCTION SOY (LTYP,I SUR, NVOL ,IA,CF,NWN,MWM) 


S OY AN A LYTICALLY C ALCULATES 
MODE SYNTHESIS IIN MULCVI. 
ENTIRE OPENING. 


THE Y-COMPONENT OF LNM FOP COMPONENT 


LNM IS ALWAYS CALCULATED OVER THE 


1302. 
13 03. 

1304. 

1305. 
1306 .' 
1307. 

1306 . ' 
1309 . 


C* IS UR : 
Co NVOL: 


CO LTYP: 


OPENING NUMBER 
VOLUME NUMBER 


OPENING/ VOLUME 


CO CF 





ARRAY OF 


ARRAY OF 


DIMENSION 

ISUR=ISUR 


i/VOLUME INTEGRATION TYPE 
INTEGER CONSTANTS 


REAL CONSTANTS FOR ANALYTIC INTEGRATION 


I A ( 3),CF(4,3) 


CO*** 


GOTO! 10, 2C, 30, 40), LTYP 


TYPE #1. RETAN 6LE/RETANGULAR 
CONTINUE 


I=UN(IA(2),NWN,NVCL) 
JP=WM0 ( 3 , MUM , I SUR ) 


A=CF( 2,2) 

A 1 - C F ( 3,2) 

VL=CF(4 f 2) 

I FtABStYL-AD.GT.ZERO ) GOTO 
IF (IoJP.EC.O)GCTO il 
I F I I-Jp.NE.D) GOTO 15 
fFCI-Jp.EO.C* GOTO 16 
SOY- VL 


PAR ALLOP JP ED 


















N 


ORIGINAL PAGE 
OF POOR QUALD 


lft 1.0. . 

1311. 
312. 



JL(LLQ— 1 1 11 

SOYrO.O 

GOTO 1111 


SOY=0.5*YL 
GOTO 11^1 
YCM1=A1-YL 
T1:PI*YL/A 1 



1329. 

1330. 

1331. 

1332. 

1333. 

1334. 


1335. 
_1 3 3 6 •_ 

1337. 

1338. 

1339. 
134C._ 
1341. 

J34 2_._ 
134 3. 
1344. 


C*#** 


ALPHA ;I *T1 

_I£ (JL.J 0,0_.. .AND .VH2.NE . Q. ) GO TO 14 

GAMA=ALPHA*BETA 

IP (A.NE.0..AND.VH2.NE.0.) 60T0 19 

SOYrYL 

GOTO 1111 

S0Y=0.5*YL 

-S.0.T0 njn 

S0Y=0.5*YL#C0S (BETA) 

60 T O 1111 

S0Yr0.5*( SIN (ALPHA )*( VI -»V2 ) )* ( - 1 ) ** ( JP. 2) 

GOTO 11 11 , 

S0Y=Q.5*( SIN(GAMA)*(-1)**( JP* 2 > “S IN ( BET A )>* (Vl ♦V2) 

GOTO nil 

OPENING/VOLUME TYPES 2,3.4 HAVE SAVE THATA RESULTS 


20 CONTINUE 


1345. 

30 CONTINUE 

\ • 

134 6. 

40 CONTINUE 


1347. 

I=UN( 3, NUN, NVOL) 


1348. 

JP=WMO( 3. MUM, I SUR) 

■> 


1351. 

1352. 


135 3. 

1354. 

1355. 

135 6. 

1357. 

1358. 


3 5 9. 

36 0. 
361. 
36 2. 
363. 
364 

365 . 

366. 


IFjI.EQ.JP.ANO.JP.NE.O )SOY=PI 
IF (IABS(I-JP) «GT «0)S0Y-0.0 


IFCI.Eq.JP.ANO.JP.EO.O)SOY=PI#2. 
GOTO 1111 


1111 RETURN 

C »»»♦»»»»»*»»»*»»»» »»»»♦»!>« »♦«»»»»♦»»»»»»»»»♦»«»»»»»»»»»» »»»♦♦♦»♦ 
FUNCTION SOZ(LTYP,I$UR,NVOL,IA,CF,NWN,MWM> 


C* SOZ ANALYTICALLY CALCULATES THE 
C* MODE SYNTHESIS (IN MULCV). LNM 
C* ENTIRE OPENING 


C* 

C» 

"C* IS UR : OPENING NUMBER 
C» NVOL: VOLUME NUMBER 
C* LTYP: OPENING/VOLUME 
C* IA: ARRAY OF INTEGER 


Z-COMPQNENT OF LNM FOR COMPONENT 
IS ALWAYS CALCULATED OVER THE 


INTEGRATION 

CONSTANTS 


TYPE 


ARRAY OF REAL CONSTANTS FqR ANALYTIC INTEGRATION 




ORIGINAL PASS m 
OF POOR QUALITY 


DIMENSION I At 3 I ,CF ( 4, 3) 


6 0 T 0 1 10, 20 »3n,40 ), LTYP 

C**** TYPE Hi. RE TANGLE/ RET ANGULAR PARALLOPJPEO 

1 0 CONTINU E 

K = WN<IAt 3> »NWN • N VOL ) 

SOZ=I$UR*MWM 


SOZ=COStK*PI*i -CFI 2,3>/CF<3 ,3>> ) 

GOTO 1111 

C***« OPENING/VOLUME TYPE 2,3,4 COMBINATIONS ALL REQUIRE SAM E SOZ 

__ 20 CONTINUE. 

30 CONTINUE 
40 CONTINUE 


KrUN(4,NUN,NV0L) 

SO Z=c_0 Si K»PI»CF(1,1)/CFI1,2 JJ 

GOTO' 1111 

J 111 R ETUR N _____ 

£*******«****»*«*****«*******»#*»**«******«********** ************ 

FUNCTION BES(J , A,B,C,D,AL,BT,S,F) 

DIMENSION U<£> 

C* 

C* INTEGRATION OF I A*BJ l AL*X , J ) -»B*B Y I AL*X , J) )* I C*B Jl BT*X , J) ♦ 

“:* 0*BY(BT*XJl>*X OVER X FROM S TO F 


BES=a.O 


ALX=AL*F 
3 T X =8 T *F 


DO 1 1 = 1,8 

1 U(I!=C.O 


IF(A.EQ.O.C) GOTO 1C 
U« 1»=BJ( AL X , J i 


Uf 2»=BJP« ALX.J ) 

1 0 IF <B . E Q.O.O) GOTO 11 
U( 3 ) =B Y t AL X , J ) 

U< 4)=BYP( ALX. J) 

11 IFI AL.EO.BTIGOTO 13 
IF(C.EQ.O.C> GOTO 12 


Ut 5)=BJI BTX, J I 
Uf 6>=BJP<BTX,J ) 


12 IFID.EQ.O.CJ GOTO 13 
Ul 7)rBY t BTX . J ) 


IF tBT.EQ.AL >8ESU=F**2/2* f IU (2)*U(4) >**2* ( l~J**2/ALx**2) * 
tUt 1 1 ♦ U« 3))**2J 


IF C BT.NE.AL )BESU=F/ (BT**2-AL**2 >*t < AL* < U < S ) *U C 7 > )* t Ul 2J ♦ Ut 4 ) ) ) 
-(BT*(U< l)*U(3>)*lUl6UUt8> M> 


tFCS.EQ.D.O) GOTO 20 


B TX=B T*S 

IF (A »EQ ,0 ,C) G O TO 14 

U( llrBJl ALX t J> 

U( 2)=B JP t ALX,J) 

14 jFtB. EQ.O.O GOTO 15 
U( 3l=EYt ALX , J ) 


U t 4 » =B YP t ALX, J ) 

15 IF(AL.EQ.BT» GOTO 














ORIGINAL PASS H 
OF POOR QUALITY, 


1424. 
142*5. 
1426 ._ 
1427. 
14 28 . 
1429 . 

143 0^ 
1431 • 

1432. 

1433. 
1434_._ 
14 35* 
_1436_* 

1437. 
1438 . 

1439. 

1440. 

144 1 . 
144 2_^ 

1443. 

1444. 
144 5." 
1446 . 
1447." 


IJLUL.E.Q *„0 •_D. ) GO TO 16 

U( 5) = BJ( BTX,J > 

U( 6>=BJPtB Tx « J ) 

16 jFtD.EO.O.dV GOTO 17 

U (_7 ) =B Y ( BTX > J ) 

Ul 8’f=BYP(BTX, J ) 

17 C 0 N T IN UJE 

TfTbtJeO.AL )BES=S**2/2*( « U I 

c mi l) *_u 1 3 n * *2 l_ _____ 

IF (AL.NE .BT )BESrS/ '(BT**2-AL 

t - (_B T * ( U C 1 >*U ( 3 ) ) » C n(6 )+U( 

20 BES=8E"su'-BES 

RE TURN 

~o 

c » »»» »»»»»♦«»»»»» »»» »»»»»» » ****** 

SUB RO U T I NE A N JAF S (I S I 

_C* 

C* 

C» AN AL YT I C CALCULATION OF JOINT 

c* the external pressure field t 

C *. BY FOU RI ER SERIES. 

c* ’ 


IR-NS TOR ( I S I 
READ ( L12*Ifi IBPQ 


DO 200 MWM=1,nM(IS» 

DO 100 NO B =L b.A Np.M BAN D 

R JA ( NOB ) =0.0 

I F (CENTF ( N OB ) -WM ( 1 » MUM }_• 6Tj» 
IF ( WM ( 1 »MWM l-CENTF (NOB > .GT. 

GOTO 10.2 0. 20) «IPF CIS ) 

PRESSURE FIELD TYPE #1. REV 
S Xi= SN 0 D C 1 2 J JL , IS_l? C ENT F(NQB ) 
B Y = SNODC ( 2. 2,’i S)*CENTF(NOB ) 
DO 13 M=1,MX 


DO 12 MP=1 .MX 

CALL RVBJA(VJP.BX.M.MP.PI) 

IF( VJP.EQ.C.O)GO TO 12 


2) *U ( 4 ) )**2<»(1-J**2/ALX**2»* 
**2>*(<AL*(U(5>*U(7>>*(U(2> 4 U(4nf 

em i 


«♦♦»♦»»»»»»»»♦»»»♦»»»»♦»»»♦»»»»»»»» 


ACCEPTANrE IN FORM REQUIRED BY 
YPE. MODE SHAPE DESCRIPTION IS GIVEN 


C*«** 

10 


JN D W M(NOg.l) )GOTO 10 0 
BNDW M ( NO B » 2 ) JGOTO 100 

ERBERANT 

/Pl /Cp 

/PI /co 


DO 1 1 N = 1 « N X 

DO 11 N P = 1 .NX 

CALL RVBJA CVJO.BY.N.NP.PI » 


VI = VI-»VJP*VJQ*ePO(M ,N .MWM >*BPQ (MP.NP.MWM) 
CONTINUE 


1 

1 

467. 
468 . 

12 CONTINUE 

13 CONTINUE 


1 

1 

469 . 
470. 

GOTO 90 

C**«* PRESSURE FIELD TYPE #2. AERODYNAMIC TURBULENCE 


1 

1 

471. 

472. 

20 AXrEX(l.IS) 
AV=EX( 3, IS ) 



BX = SN0DC(2, 1,IS>*CEMTF(N0B )/ 
3Y=SN0D C( 3 .2.IS)»CENTF(N0B)/ 
DO 23 M = 1 » MX 

DO 22 HP = 1,MX 

CALL ATJA( VJP, AX.BX.M.MP.PI ) 
IF ( V JP.E 0 • 0 .0 l GOTO 22 


/PI/COoEX (2»IS ) 
/pI/CO*EX (4 « IS ) 


DO 

21 

N = 1 . N X 

DO 

21 

NP-l.N 







ORIGINAL PAGE IS 
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XML*. 


CALL ATJA( VJG.AY.BY.N.NP.PI > _ 


1482. 


VI = VI*VJP* VJ0*BPQ (M,N,MWM)*BPQ (MP,NP,MWH) 


1482. 

21 

CONTINUE 


1484. 

22 

CONTINUE 


1485. 

23 

CONTINUE 


I486 . 


GOTO 90 


1487. 


PRESSURE FIELD TYPE #3. PLANE WAVE FIELD 


1488 . 

30 

|x~SN00C(2 f 1,1 S)*CENTFINOB )/PI/CQ*C0S (EX< 1,IS»J 


1489. 


3Y = SNODC ( 2 f 2.1 S)*CENTF(NOB >/PI/CO*COS (£X( l.TS) > 


1490. 


DO 33 M - 1 f M X 


1491. 


DO 32 MP - 1 .MX 


1492. 


CALL PWJA( VJP,BX,M,MP,PI) 


1493. 


IF C VJP.EQ.C.pJGOTO 22 


1494. 


DO 31 N=1,NX 


1495. 


DO 31 NPzl.Nx 


1‘ ;6. 


CALL pWJA 1 VJQ , BY »N ( NP »PI 1 


1*»9?. 


VI = VI>VJP*V.iO*ePOlM .N.MWM »*BP0 (MP.NP.MWM) 


1498. 

3 1 

CONTINUE 


1499. 

32 

CONTINUE 


1530. 

33 

CONTINUE 


1531. 


GOTO 90 


1532. 

C**** 



1503. 

90 

RJA (NOB ) -VI / AM N (MUM ,1 )**2 


1504. 

100 

CONTINUE 


1505. 


IR=(NST0R( IS>-1)*NSMT*MWM 


1506. 


WRITE (LIO'IR) RJA 


1507. 

200 

CONtINuE 


1506. 

1111 

RETURN 


1509. 

£**************************** ********* ******* ******** ************ 


1510. 


SUBROUTINE ANJASS(IS) 


1511. 

C* 



1512. 

C* ANALYTIC CALCULATION OF JA FOR A SIMPLE SIN*SIN M00E SHAPE 


1513. 

c* 

(SURFACE TYPE »2 AND TYPE »7 AND TYPE #8 > 


1514. 


lR=NSTOR( I S ) 


1515. 


IF(ISTYP(Ic).EQ.7)READ(L12»IR)BPQ 


1516. 


DO 200 MWM- 1 » NM ( I S) 


1517. 


MrNINT(WM( 2,MUM) > 


1516. 


MP-M 


1519. 


N-NINT( WM( 2, MWM) ) 


1520. 


NP=N 


1521. 


DO IOC NOB=LBAND,MBAND 


1522. 


ax=SN 0 DC( 2 ,l,IS)*CENTF(N 0 B)/PI/C 0 


1523. 


BY = SNODC(2.2,IS)*CENTF(NOB)/PI/CO 


1524. 


IF ( IS TYP ( IS) .N E .7 ) GO TO 5 


1525. 


BXrBPQ( 1,6, MWM ) *CEN TF |N0B)/PI/C0 


1526. 


BY=BP0( 1,7, MWM)*CENTF(N03)/PI/C0 


1521 . 

5 

CONTINUE 


1528. 


RJA(N0B)=C.0 


1529. 


GOTO ( 10, 2C,30)fIPF(IS> 


153C. 


PRESSURE FIELD TYPE #1. REVERBERANT 


1531. 

La 

CALL RvBJA (VJP,BX,M,MP,PI) 


1532. 


CALL RVBJA ( V Jq ,B Y , N , NP ,P I ) 


1 5 3 3_* 


GOTO 90 


1534. 

C«*»* 

PRESSURE FIELD TYPE #2. AERODYNAMtC TURBUlEnCE 


1535. 

20 

AX-I:X(1,IS ) 


1536. 


AYsEX ( 3, is ) 


1537. 


CALL A TJA ( VJP ,AX,BX,M ,MP ,PI ) 





0RJG5MAL p, 

OF POOR Of 


1556 

1557 
1556 

1559 

1560 

1561 

1562 

1563 
1561 

1565 

1566 

1567 
1566 

1569 

1570 

1571 

1 572 

1573 

1574 

1575 

1576 

1577 
1518. 
1579 
158' 

1581 

1582 

1583 

1584 
1585" 

1586 

1587 
l£88 

1589 

1 590 

1591 

1592 

1593 

1594 


CALL A TJ A 1 v JQ j 

GOTO 90 

PRESSUR E FI EL D TYPE 43. PLANE WAVE 

30 BX=BX*COS~|EX( 1 ,IS) ) 

BY=B V»C OS<EXI 1 .IS> ) 

CALL PU JA ( v«-IP»6XfM»MP»PI ) 
call pwjac vjo ,by,n ,NP ,PI ) 


GOTO 90 

C ****** 


90 RJA C NOB ) =VJP*VJQ/AMN (MWM ,1 )**2 

IF t ISTVPIIS ) ,EQ.7)RJA INOB )=RJA INOB > » (BPO 1 1 . 6 .HUM)»BPQ I 1»7,M 


t **2/AREAI IS) **2 
ICO CONTINUE 


IR=(NSTOR< IS)-1)*NSMT*MUM 

UR 1TEIL 1 0 , IR)RJA 

200 CONTINUE 

RETURN 

Q ******************************************************** ******** 

SUBROUTINE PFCAL(IS) 


MWM)) 


— 

H 


CALCULAT E THE JO I NT ACCEPTANCE OF a POINT pORCE EXCITATI 
DO 200 MWMSI.NMfIS) 

RJA <li-<SIM(EX(ltIS)»EX(2«IS) « IS .MM M) )»»2/ A MNI HUH. 1 ) »*2 
C A RE A ( I S ) **2 
DO IOC NnB=LBAND.MBANO 


TATI 




100 R JA < NOB ) SR JA ( 1 ) 

IR=(NSTOR( IS ) -i)*NSMHMWM 


URITECL10*IR)RJA 

20 0 CON TI NUE 

RETURN 

C ***♦ *** ************ ************* ******** ****************************** 


SUBROUTINE R VB JA « V JP , B , J ,K ,PI > 


SPECIAL ROUTINE FOR ANALYTIC CALCULATION OF REVERBERAmT 
FIELD JOINT ACCEPTANCE WITH SIN*SIN MODE SHAPE 


DO 11 BLE PRECISION S.F.G,H,DPI 
0Pl = 3. 141592650c 

VJP=0.0 

IF 1 1 -1) **C J *K ) >L T* 0 ) GOTO 1111 
E-OPI *DB LE ( ( B + J ) ) 


FroPI*DBLE ( (B-J) ) 
G=DPI*DBLE ( <B*K I ) 


H=DPI*DBLE ( (8-K ) ) 
IFIJ.EO.K) GO TO 


Tlrl.Q/(PI**2*B* <K **2- J**2 ) ) 

VJP=Tl*(K*(CINIE)-CINlF) I- J*< CIN I G I -CIN CH 1 1 ) 


GOTO 1111 

200 V JPr C 1 . / 1 2 »#J*PT**2*B ) ) * 1 Cl M E> -CIN ( F ) ) ♦ ( 1 • /2./PI/B 1*1 SHE I ♦SI IF) 


2 00 CONTINUE 

T_lA=i 1./I2.*J*PI»» 2*B) ) 

T1B=ICINIE ) -C I N I F ) ) 

T1-T1A*t1E 

T2=( 1./2./PI/B )*ISI IE) + SI(F )) 

T 3- I l./PI**2/ <J**2-B**2) )*l l.-f-l )**J*COS IPI*B) ) 








fc ■ * 


ORIGfNAL PAGH 
0F POOR QUA Li 


C**** 

C* 

C* A 


1111 

C**** 


C» SP 
C* WA 


■-VjJP.= Tlf.T. 2f 13 

return 

FUNCTI0N_ S I J X )_ 

O0UBLE PRECISION X,A,A1,FC,PR 

._A r.O.t 00. C 

FC=1.D0 
DO 10 N=0*40 


PR=DFLOAT< 2*N + 1) 

F C=F C *0F L 0 A Tj ( 2 »N ) » ( 2»N ♦ 1 > ) 
iF<F~C.EG.C.ODO JFCsl.ODO 
A_1=0 F L 0 ATI < -1 )»«n>»X*»PR7PR/FC 
A - A ♦ A 1 

IF(ABS(A 1) .LE.l.CD-S ) SO TO 20 


CONTINUE 

CON TINUE 

SI = REALC A ) 
RETURN 


FUNCTION CINIX ) 

DOUBLE PRECISION X.A.Al.FC.PR 


A= 0*000 
FCn.DO 


DO 10 N-X ,40 

PRrDF LO A T I 2*N > __ 

FCrFC* DFL0ATH2*N-1)*<2*N> > 

A 1-OF LO A T ( (-1 )*«-!» **N > *X**PR /PR/FC 


Ar A-»A 1 

_IFJ AS S ( A l)*L£.:.CD-5> 60T0 20 
CONTINUE 

_ CONTINUE 

CIN=REAL< A ) 

RETURN 


** * *** ** * * * * * *4 ******* ** ******* ***** ******** ****************** 

__SU8 ROUTI NE PW J A C VJP , B * J ,K *P II 

NALYTIC CALCULATION OF SIN*SIN MODE SHAPr ANO PROGRESSIVE 


WAVE ACOUSTIC FIELD JOINT ACCEPTANCE 
VJPrO.O 


IFC«-,lj**fJfK).LT.O) GOTO lln 
V JPr2.*J*K / PI **2/ C J **2-6 3*2 >/ ( K **2-B**2 »* ( 1 -C -i ) ** J*C OS ( PI *B » 1 


return 

****** ******************************************** ££ 004 *********** 


SUBROUTINE atja<vjp,al,b,j,k,pi) 

EC I A L R OUTI NE FO R THE AN A L YTIC C ALC U L ATI ON OF PROGRESSI VE 
VE FIELD JOlNf ACCEPTANCE ~WITH SIN*S~IN MODE SHAPE 


Bl=l2./t J**2+K**2> >**0.5*E 
S Jl-B / j 


DJ= H AL**2* 1)*EJ1**2+1 )**2 
IFCJ.EQ.K) GO TO 10 

-4*BJ1**2 


BK=E/K 

DKr » ( AL»»2 4 1 ) »B K»«2-»1 )»» 2..4*BK»»7 

AJK=( J«#2+K**2 )**2/ ( 2.*Pi*#2*J*«3iK**3*Dj>*DK)*C I ( A L 3*2-1 >.*8 1**2* 1 

E»»2-4 »(A l* E 1»*2 )»»2“(FL 0AT< (K3»2-J*»2) > /<K»»24j»»21 )«»2 ) 

3 JK=2.3( J**2+K3*2>332/ < P i**2*j**3*K 3*3* DJ30K) *A L*B 1**2* ( ( AL**2-1 ) 

6 * 6.1 ** 2 +j I ■ __ 

V JP-A JK*t 1-1-1 }**J*EXP(-PI*AL*B>*COStPI*Bn*BJK*U-ll**J*EXPC-Pl* 
EAL*B)*SIN(PI*B J 


1 














' / 


ORIGINAL PA@2 fs! 
OF POOR QUALITY 



165 2. 


goto ini _ _ _ - - 

1653. 

10 

A J = 2. /( f J*PI )**2*0J**2)*C ( C AL**2-1)*BJ1**2* 1) ** 2-4* ( AL*B Jl**2 ) **2 > 

1654 . 


E J=8./l J*PI >**2/DJ**2*Al*8Jl**2*< CAL**2-1 )#BJ1**2* 1) 

1655 . 


C j= l./< J*pl >/DU*AL*eJl*< C AL**2*1 ) *B Jl**2 + 1 ) 

1656 . 


V JP=& J*C l-l -1) **J*EXP (-PI#AL*B )*CC<; <PI*8))*EJ*< -1 ) **J*E XP ( -PI *AL*E 

1657. 

D*siNCPi*e >*cj 

1658 . 

mi 

RETURN _ ... 

1659 . 

£******* ********************************* £*** **£**4 4* *4* 4 ******* 

1660. 

c **************************************************** *********** 

1661. 


FUNCTION BJ(X,N) 

1662. 

c 

COMPUTES THE J BESSEL FUNCTION OF THE F.IRS.T. K_I_NO FOR A 

166 3 . 

c 

GIVEN ARGUMENT X, AND A GIVEN ORDER N. 

1664 . 

c 

XrARGUMENT OF THE J BESSEL FUNCTION 

166 5 . 

c 

N: THE ORDER OF THE J BESSEL FUNCTION 

1666 . 

c 

DrREQUIRED ACCURACY 

1667 . 

c 

3 J-THE RESULTANT BESSEL FUNCTION 

1666 . 


DOUBLE PRECISION XD . Z ,2 Z . V AR , V AL .SU M , TOTAL . BL J 

1669 . 


DEFINE B SL J ( TO TP .TO TQ ,ARG )=SQRT <2 ./ <PI*X) >* 

1670. 


( ToTp*SIN( ARG)-»TOTG*COS < ARG) > 

*67 1* 


kO = DBLr< X ) 

1672. 


IF < X.GT.10. )GOTO 250 

1673. 


IFIN.GT.55J GOTO JCO 

1674. 


IF ( X «EQ .0 . ) GOTO 30 

1675. 


M=57-N 

1676 . 


2=1. ODD 

1677. 


ZZ=XD*X0 

1678 . 


SUM=0.0D0 

1679 • 


TOTAL=O.OcO 

1680. 


B Ji=l .ODO 

1681. 


DO 10 1=1, M 

1682. 


K: I -1 .... . . 

163 3. 


VAR = 2.DC**(2*K *N ) 

1684 . 


T0TAL=SUM.EJ1*Z/FAC< I»/FAC( I*N)/V AR 

1685 . 


IFCtOTAL.EC.O.COJGQTO 5 

1686 . 


VA| -SUM/TOTAL 

1687. 


if t v al.gt.dn.ano.val.lt .UP > GOTO 20 

1688 . 

5 

3 J1 = “B Jl 

1689. 


z=z*zz 

169 0. 


SUM=TOT A L 

1691. 

10 

CONTINUE 

1692. 

20 

BLJ=XD**N*TOTAL 

1693. 


BJ=PEAL(BLU> 

1694 • 


RE TURN 

1695 . 

30 

IFCN.GT.O) GOTO 40 

1696. 


3 J=1.C 

1697. 


RETURN 

169e. 

40 

BJrO.O 

1699 . 


RETURN 

1700. 

c**** 

USE ASYMTOTIC SERIES SOLUTION 

1701. 

250 

IF (N.GT.8 J GOTO 275 

1702. 


CALL PSOScN,X.TOTP,TOTQ »ARG ) 

1703. 


B J=BSLJC TOTP.TOTQ, ARG) 

1704. 


RETURN 

1705. 

c***» 

USE \ SYMTOTIC SERjES THE RECURSION WHEN N>8 

1706 . 

275 

CALL PSC$(6,X,T0TP,T0TQ,ARG> 

1707. 


BL JN=B SL J (TOTPtTOTO »AR6 ) 

1708. 


CALL PSCSt7»X.T0TP .TO TO .ARG) 
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3 L J NM.l =B S L.J JJ_Q. I Pj T.0_IQ j_A R A » 

CALL RECUR IN, X,eLJN,BLJNMl,BJ> 

REJURN 

3 CO BJ=C.O 

R E J UR N 

Cfl*t****flM>#<M|l**»*««#<I************#***************#*******>>****** 

C *************************************************************** 


FUNCTION E Y ( X »N ) 


CALCULATES THE NEUMANN FUNCTION 


DOUBLE PRECISION XD .TOTAL , CUM , SUM ,2 ,ZZ , DlV ,VAL ,9LY , BLJ 

DEF IN E B S LY ( TO TP ,T O TQ .ARG> =SQRT I?./ IPI»X) )» 

’( T0TP*SIN I ARgT+TO TO *COS I ARG ) ) 

XprQBL E ( X ) 

IFCX.Gt»1C. )GOT0 250 
FIN.GT.55) GOTO 300 


CALCULATE by series DEFINITION 
IF I X *EC.O. )GOTO SO 



TOTAL=O.DO 

CUMrO.DO 



SUMrO.DO 
ZrXD*XD/4.C 0 



IFIN.EQ.Oj GOTO 15 
22=1. DO 



DO 10 1 = 1, N 
DIV=FACIN-I*1)/FAC 

III 


CUM=CUM*DI V*ZZ 
ZZ=ZZ*Z 


10 

IS 

CONTINUE 

ZZ=1.DC 



3 Y 1=1. DO 
Mr 57-N 



DO 30 I - 1 1 M 
OIVrZZ/FACII) 


Ip I VAL. GT.DN.AnD.VAL.LT. UP ) GOTO 40 
2C 3 Y 1- -8 Y 1 


zz=zz*z 

SUM=TOTAL 


3C CONTINUE 

40 OIV=< C2.DQyXD)»»N>/DPI 

8L JrOBLE ( B J I X , N ) ) 

BL Y=( rD IV)*CUM*(?.DC/DPI)*DL06I XD /2 .03)»BLJ-I ( ( XD/2 .CQ) »<»N) /PI ) 
l * TOTAL 
BYrREALIBLY) 









ommm. pass m 

OH POOR QUALITY 


.176(6.^. 

1767. 

1768. 

1769. 
177C. 
1771. 
1_77 2. 

1773. 

1774. 

1775. 
1776 , 
1777. 

1778 . 

1779 .“ 
1780. 


_C** ** .U.S.E_J».S.IM.I0JU:_S£R1LS_ -T.HE N_.RE.CU R S 10 H . -Efl R. -N> 8 

275 CALL PSQS<8,X.TOTP,TOTQ,ARG) 

Bl YN=B SL Yl TO TP t TO TC.,A_RGJ 

CALL P S 0 S < 7 » X 1 1 0 TP » TQ TQ , AR G ) 

3 LYN1=BSLV (T0TP.T0TQ ♦ARGI 

CALL RECUP(N»X»BLYN»BLYNMl»BY) 

R ETURN 

3C0 B Y=-l .35 

RE J URN 

'C ******* *****************************************’******* ********* 

SU BROU TI NE_ PSfiS CN .X.TOTP «TOT Q ,ARG ) 

DOUBLE PRECISION ATEX *B Jl t TRMP , TRMO .SUMP , SUMQ ,R J,RK ,U , V AL» TP, TQ ,XC 

XD = 0BL£« X) 

U=4.00*N*N 

ATEX=8.00*X 


B 


TRMPrl.DO 


SUMPr l.ODC 
SUMO- 0.0 0 


RJrl .00 

DO 10 M-2 . 56« 2 

RK : RJ+2.DD 

T RMO= TRMP*CU»RJ* RJ )/ ATEX 


TRMP=TR M G*<U-RK* R K )/AtEX 
TP=SUMP*rJ1*TRMP/FAC(M*1 > 


T0=SUMQ*BJ1*TRMQ/FAC<M> 


IF ( TQ.EO.C.DO)GOTO 5 
VAL=SUMQ/TC 


IF< VAl.GT.CN. AND. VAL.LT.UP » GOTO 20 
5 SUMQ=TO 


SUMP-TP 

RJ=RK-»2.DQ 


10 CONTINUE 

20 ARG=REAL«X-0PI*<N/2.D0*0.25D0» ) 


TOTP=REAL< TP> 
TOTc=REALC TO 


RETURN 

C ************* ****** **********************************4*********** 


SUBROUTINE RE C UR (N »X « BSLN »B-LNM1,BSL) 
0TNT=2 o /X 


K = N-1 

DO 10 1=8. K 


BSLNPl=QTN T *I*BSLN-BSLNHl 

a SLNMl=BSLN- 

B SLN=B SLNP 1 

10 CONT INUE 

3 $L=B SLN 
RETURN 


C ******************************************************* ******** 

FUNCTION B I ( X , N 1 

C COMPUTES THE I BESSEL FUN CT ION C MODI FIEo > FOR A GIVEN ARGUMENT 

C ANO ORDER . __ ■ ' ■ ■ . 

C X=ARGUMENT OF THE I BESSEL FUNCTION 

C N=OROER OF THE I BESSEL FUNCTION 


bi=resultant 

IE r-RESuLTANT er ro r cod e 












yj'vriBr- 


ORIGiNAL 


1823. 
1624 . 
1 8 25. 
1826 . 
1827. 
1828 • 


1872. 

ie?3._ 

1874. 

1875. 

1876 . 

1877 . 

1878. 

1879. 


JtRSfl— . .N.C..S.B.P0.B 

IER=l hi IS NEGATIVE 

_ l£jR = 2 X. I_S_NEGATIVE 

N MUST BE GREATER THAN OR EQUAL TO ZERO 

ThFckVoR ERRORS IN N AND X ANO EXIT CONDITIONAL 


IER = Q 


IF(N) 150,15,10 

IF4X) 160 t 2C^23 

IF (X) 160,17,20 
RETUR N 

DEFINE TOLERANCE 


T0L-1.E-4 


COMPUTE UP TO 30 TERMS, STOPPING WHEN ABSCTERM) LE ABSISUM OF 
TERM TIMES TOLERANCE 


DO 90 K=l,3 


IF ( A B S ( TERKJ-ABS 1BI*T0L > >lcO» 100,80 
FK=K*(N*K ) 


TERM=TERM* (XX/FK ) 
B I-B I * TfRM 


RETURN B I AS ANSWER 


RETURN 


X GT 12 ANO X GT N, SO USE ASYMPTOTIC APPROXIMATION 


F N T=4»N *N 
XX- 1 • / ( 8 .*X ) 

TE RMS 1. 

3 I r 1 • 

DO 13 0 K=l,30 

IFlAB’Sc TERM) -ABSITOL*E I ))1 40,14 0.1 20 

FKs(2#k-1)**2 















m 
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1 880, TERH=tERM »x x»(FK-FNT)/FLQAT iK i 

1881, 1 30 BI:Bi*TERm 

_1 88 2 • I MP PI = 3. 141592653 

1883, BI=ei*EXPm/5QRTt2.*PI*XI , 

1834. GO TO 100 ; 

1885. 150 IER=1 ' v" 

1886. GO TO 100 

1887. 160 IER=2 — — — 

_ 188.8 . GO TO 100 

18*89. C ******************* ********************* ******** ******** ****** 

1890 • _ FUNCTION BJP<X,N> 

1891. C* 

.. 189 2 . C» CA L CU LATE THE DERIVATIVE OF THE BESSEL FUNCTION OF THE FIRST 

1893. C* KINO OF ORDER N ”*' ' ' ~ ” 

1894 . C* 

1895 • *IF( N.EQ.0)BJP=-1.0*BJIX,N4l I 

1896 . IF (N.GT.O)BJp=C.S»tBJtX .N-l )-SJ < X.N + l) > 

1897. 1111 RETURN * 

1 898 . c *♦*♦ ******************************** ******************* *******^ 

1899. FUNCTION BYPCX.N) 

19 00. C* 

1901. C* DERIVATIVE OF THE BESSEL FUNCTION OF THE SECOND KtND OF ORDER N 

1902. C» 

1903. IF|N.EQ.0>BYP=-1.0*BV(X f N.l > ^ 

190 4. IF<N.GT.Q)BYp = 0.5*(BV(X.N»l )-SV (X ,N + 1 )» 

1905. 1111 RETURN 

1906 . c a*********************************************** »»»»****»**»»»** ** 

1907. FUNCTION BIPCX.NI 

1908 . C* 

19*09. C* DERIVATIVE OF THE MODIFIED BESSEL FUNCTION Op T H E FIRST KIND 

1 910. IF (N.EQ.Q)BIP--l. 0»B I f X ,N»1 ) 

1911 • IF ( N.GT.0>BIP = u. 5*181 (X.N-1 >-BHX ,N*1I> 

191 2. RETURN 

1913. END 


FTN 10125 IBANK 3680 D3ANK 299 COMMON 
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s»roar” 



. , S X_X.MDLPRM ,XX, 

IGRTa 12 / i 4/8 3 -18; 3 9 < 12, Y 


2 . 

3. 


4. 

5. 


SUBROUTINE M D LP'RMTlii N M C"i VM N P A , Z A N N , R H N » R J A , W M ,~N M , S P L ", C E NTF , I STYP, 
* N STOR, NAMT, NPROBN f NFS .NTAPE . NS MX ,NH< ,N SMT. 


6 . 
_ 7 * 
e. ' 
9. 


•PREF, NAM.Nv.NS ,N TOB , ZMD ATA , LB AND , MB AND ,L4 ,L 8 ,L9 ,Llol> 

»»»♦»»»««»»» »»»»»»»»»»»»»»»»»»»»»»» $ 


DIMENSION WNMC (NAM ) ,VMNP A I N AM > , Z Ann t NAM > ,RMNf NA M, NV > * 
»WMI 2,NSMX),NMINMS) . SPLINTOB ) , CEN T F I NTOB I .NS TOR I NS I . 


♦ZHDATA INTOB ,NMS ) »Rj A INTOB ) , ISTYPINS > 
I0UT-6 


1C. 

11 . 


15 


DO 15 in. NTOB 
CENTF 1 1 )=CENTF II)/fc. 2 e 3185 


12. 

13. 

20 

DO 20 I -1, NAM 

WNMC II) = WNMC ( I 1/6.283185 



14. 

il_i 


WR I TE 1 l OUT , 1 ) NTApE, NP rOBN 
WRITE II0UT.2J 


16 • 


READ! L4’ NPROBN 1 RMN 



17. 


DO 100 in, NAM 



18 . 

ICO 

WRITE (I OUT, 3) WNMC ( 1 ) ,VMNPA II ) ,ZANN II > 



19. 


WRITEII0UT.4) 



20. 


WrI T EII0uT,5) 


s 

21. 


DO 200 1=1, NAM 



22. 


WR I TE 1 1 OUT , 6 ) WNMC II) 



23. 


DO 150 J = 1 , N V 


' i 

24 . 

150 

WRITE II OUT, 71 J , RMN 1 1 , J ) 



25. 

2 CO 

CONTINUE 



26 . 


SUB=0.0 



27. 


WRITEj I OUT , 8 ) 


v- i 

28. 


WR I TE 1 1 OUT , 9 ) 



29. 


DO 300 1=1, NM S 


JT""; 

30. 


IFT ISTYPII ) .EC .0)G0T0 300 


t j.i 

31. 


IR=3*NFS4NST0R (I) 



32. 


RE AO 1 l8*IR,ERr=111)SPL 



.33 • 


IR = NS TOR II ) 


t 

34# 


REACT L9*IR, ERR =111) WM 


;■ ] 

35. 


WRITE II OUT, In) I , NTAPE ,NSTOR II 1 



~36 . 


WRITE II OUT, 11) PREF 



37. 


DO 250 J=LBAND , MB AND 


i j 

38. 

250 

WRITE 1 IOUT, 12 ) CENTF IJ) ,SPL(J), ZMOATAIJ,I) 


• 1 J 

39. 


DO 280 Jn.NMII ) 



4C. 


WR I TE 1 1 OUT , 1 3 ) WM 1 1 , J ) / 6 . 2 8 3 15 



41. 


IRrlNSTORII )-i )»NSMT*J 



42. 


rea‘dilio‘ir,err=iiiirja 



43. 


DO 275 K=LBAND ,MBAND 



44. 


WRITE 1 1 CUT, 14) CENTF IK ),RJAIK) 


if; J 

J. 45. 

275 

CONTINUE 


._j j 

46 . 

280 

CONTINUE 



47. 

300 

CONTINUE 


■ r’*l 

46 . 


DO 35C 1=1, NTOB 



r 49 . 

3 5 C_ 

CENTF il ) =CENTF 111*6.28315 


' * 

: 50. 


DO 360 1=1, NAM 



-U si. 

360 

WNMCT I)=UNMCII )*6.28315 




52 . 

53. _ 

54 . 

55. 


1 F0RMATI43X, ‘ACOUSTIC PARAMETERS ‘ ,5X , ‘TAPE# 
», I 3/ 4 3X, ’«»»»»»»»*»»»»»»»»»»* ) 


,13,*, PROBLEM# 


2 FORMA TI//25X, ’CAVITY 
»«. 1 IX. ’DA MPING ( LOSS 


NATURAL FREQUENCIES (HZ) GENERALIZED MASS 

FACTOR )♦ /2tX . * *»»»»♦»♦ »»»»♦»»»»»»»»»♦♦»»»»»♦ :;t 





r 

ORIGINAL PAQg 'g 

: 

°F POOR QUALITY 


_».L* 5-* mjL * *********** »»»»* . iix t »♦»»»»■»»» » ♦»♦>)■»=»»»»»»♦ »j 

3 FORMAT) 35X,E10.5,19X,E10.5 t 19X ,E1D.5 > 

» F0RmAT)/////25 X»*0I STRI but ion of acoustic EN ERGY M 

5 FORWATI/,25X, ‘CAVITY NATURAL FREQUENCIES )HZ> ‘ . 10X, ‘VOLUME • ,24X , 
*R M N*/ 2SX « * »»★«»» »»»«»«»»»»»»♦» »»»♦♦»»» »» » * r 1 OX . » ♦»»»»»* f 2 1 X 
A •****$***##• ) 

fe FORMA T( 35X,EiO.S) 

7 FORMAT(67X,I3t23X,E10.5 J 

e F0RMAH/////56X. ‘STRUCTURAL P AR AMET ERS * ./ 56 X , 


A '***#«*#**#***«#«***«$ » ) 

9_FOR M AT(// 46X, ‘MODAL ANALYgI<»/46X, l *****& # * »»»♦»*> 

1C FORMAT) //44X* ‘ $ SURFACE *.I3,‘ (SAVED ON TAPE ‘,13, SURFACE 


11 FORMAT(///62X» ‘EXTERNAL SPL *✓ J 9 X ♦ *F REQUENcY <HZ>*,6X t 

AMDe.REF » « E 1 0 » 5 .« ) » . 9X » ‘ZMCATA * /39X , »♦*♦»»»»»♦♦■>»♦»« ,6X. 

A ‘*>M | >)'*#** 1 (h*'(«********’» 7X»* *********** ) 

12 FQRMAT(41X.E10.5» 12 X, E l 0 • SjJL 2X .ElO .5) 

13 FORMAT) //39X, ‘NATURAL FREQUENCY I HZ > ‘ ,7X , ‘BAND CENTER FREQUENCY 
t»7X, * JOINT ACCEPTANCE •/ 3 9X . El 0. 5 .29 X ,•*<■**********•. 7X 


C • * ***#**4>* » ) 

_1 4 FORMAT) 79 X . ElO ,5 t 7 X.Ell.S I 
NAMT=NAMT 

1 11 RETURN 


E 


TN 321 IBANK 534 DBANK 






original PM£ [S 
OF POOR QUALITY 


' t ^ x • ___________________ 

14/ 8 3~1 8:39142,) 

c ***** ** »»»* »♦♦»»»» »»»♦ ♦ »♦»»♦»»»» 

SUBROUTINE" cAL Cl ANS ,ANSS ,BN 

C V L N_M , S PL , RJA. 2 M .CENTF.NSTOR 

£ » MBAND , NTOB , NPROBN »BW»ZER0, 
£ SPLT.ISTYP.NSTi 


»♦»♦»»»» »»»♦»»♦♦»»♦»»»♦»»»»♦»» $ 
S.BNSS yU NMC.ZANN . VMNPA, RMN, NM, AREA, WM , 

PREF.VOL .RO *C0»pT.L 7 tL8 . L9.L 10« f~OUT » 


SPACE 


ANSS: SPACE 


SPACE 


BNS $ : SPACE 


AVERAGED. BAND A 
MU LTIPLE CAV ITy 
AVERAGED, BA f jD A 
SUB VOL UHE OF T HE 

"averaged, band” a' 

MULTIPLE CAVITY 

averaged, band A 

SUBVOLUME OF THE 
SURFACE IS UR 


VERAGED PRESSURE 

SYSTEM 

VERAGED PRESSURE 
M ULTIPLE CAVITY 
VERAGED PRESSURE 
SYSTEM DUE ONLY 


OVER WHOLE 

OVER EACH 
SYSTEM 

over Whole 

TO SURFACE ISUR 


VERAGEO PRESSURE OVER EACH 
MULTIPLE CAVITY SYSTEM DUE ONLY 


DIMENSION UNMC INAH ) ,ZANN INA 
ONMINMS) ,AREAINS),SPLlNTOB) , 
»CENtP«NTOB),NSTQ R|NS i.ZM (NS 
DIMENSIqN RJA INTOB I ,SPLT|NT 

WRITE I TOUT, 9) 

DO ZCTl = l, MBAND 

_ A NSinrC.O 

do 20 J- 1 , MMS 

ANSStl » J >-C .0 

DO SOO I SUR-1 ,NMS 

IF( ISTYPIISUR > .EC.OJGOTO SC 


H> ,VMNPa(NAMI,RMNINAH,NV),VLNM<NAH > 
ANS INTOB ) » ANSS INT08 »NV) » WMI 3, NSMX ) 

MX ) ,BNS SINT OB ,NV> .BNSINTQB) 

08 ) , IS TY PI NS ) 


44 . 

C 

45. 

c __ 

46 . 

c 

47. 

c 

4£ . 

c 

49. 

.c 


FCTrR0**2*C0**4*AREAIISUR )* 

D_0__ 30 1 = 1 ,_M BA N D 

3NS(I)=0.0 

JDO_ 2 0 J - 1 . N M S 

BNSS|I,J)=0.0 
IRrNS TOR 1 1 SUR I 
READ I L9*IR J^M 

IP=_NF S ♦ NS TOR IJS URJ 

RE AD I L 9 * I R ) |'Z M I J > , J = 1 , NM 1 1 

W RITE ( fe,»)Z M 

IR= 3"*NFS-»NST0RIISUR) 

RE AD I L8 * I R ) SPL 


*4/V0L**2/Z. 


SUR) ) 


o 0 40 1 = 1 *NTO.B_ 

S>L|I >=PREF**2*10.**tSPLli )/jO.O) 


DO 500 MWM rl. NM I ISUR i 



c**** 


c**** 


I R=<( IS U R -JO »NSMT*MWM + NSMT»NST*INPR0BN-1 i ) 
RE AO I l7*IP ) IVLNM.II ) ,1=1, NAM ) 
IRz(NSTOR(ISUR)~1)»NSmT*MMM 
READ I LlO*IR )RJ A 
DO 25C NUN = 1,N AM 


IFlABSIvLNMtNWNH.LT.ZERO \ GOTO 2S0 


FAC=VLNMI N wN)*»2/VHNPA<NWN ) 

CALL COEFt A,B,C,D,E,F,G1 ,H, A1 ,P1,A2 ,P2,MWM,NWN> 

DO 100 IZLBANp, MBAUD 

W f=CE NTF ( I ) -BW*CEN TF 1 1 ) 

W2=CE NTF 1 1 >+B W»C E N J FJ IJ 

SOM=RJA<I>*FAC*FCT*SPL(I>/ ( 2. *8W*CENTF ( I) J 

AN1 = SQH»VINT( A ,B.C,D,£,F,G1 , H . A 1 . PI . A 2. P2 . W 1 . W2 ) 

ANS(I>=ANS<I)-»AN1 

Em SII)=ENS <1 )♦ M l __ 

c**»* calculate sabap over each subvoluhe of the system 

D O e;C NVO L - 1 1 N V 

ANSSI I , NVOL >=ANSSII ,NV0LMAN1*RMN<NWN,NV0L ) 

3NSS < I .NV OL > = 6NSS<I.NV0L>*ANI* RMN (NWN »NVOL) 

EC CONTINUE 
ICO CONTINUE 
250 CONTINUE 
SCO CONTINUE 


C***** WRITE OUT SABAP DUE TO SURFACE *ISUR* ************************** 

WRITE Li Q.U Tj_l 0 ) I SUR 

00 570 NV0L=1,NV 
WRITE ( I OUT, 2) NVOL 


WRITE 1 I OuT ,2) PREF 

D_0_56C_ T =LEAND »MB AND 

VAL= ld.*ALOGlC<BNSS( I, NVOL ) /PREF** 2) 

F 0=CjENTF < IJ_ / 2 ./.PI 

WRITE C I OUT, 5) F0,VAL 
560 CONTINUE 


570 CONTINUE 

WRITE ( I OUT , e ) 


WRITE 1 1 OUT ,3) PREF 
TOTrO.O 


DO 530 I =LE AND ,MBAND 
VAL= lC.0*AL0Gln(B N S(I)/PPEF»*2t 
FO=CE NTF (I ) /2 • / PI 
WRITE < I OuT, 5 > FO.VAL 
T 0 T = T 0 T ♦BN S ( I ) 

S6C CONTINUE 

TOT =10 , 0*ALOG 1 01 TO T/ PREF** 2 ) 
WRITE < I OUT » 7 ) TOT 


C**** 

8 00 CONTI NUE 

C"**** CALCULATE SABAP DUE TO ALL THE SURFACES IN QB 
C»»*»* A ND MA K E CORREC TION FOR RER AQIATION 

D0~8G3 nob = i,ntob 
8C3 SPlTINOB >= c.0 


DO 804 IS=1,NMS 
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IFCISTYP(ISI.EC.O) GOTO 804 


ATtAT*AREA(IS) 

CONTINUE 


DO 806 IS=1,NMS 
IFLISTYPlIS I.EC.OI GOTO 806 


Irt 3*NFS*NST0R(I$> 
RE AD ( »8 * IR ) SpL 


DO 80S NOB -LB AND ,MB AND 

SPL (NOB )TP REF **2*10.** (SPL (NOB ) /10. ) 


SPLTINOB > =ARE A CIS) / AT*SPL(NC8 MSPLT (NOB > 
CONTINUE 


2 FORMAT( ///44X, ’VOLUME - *»IT/44X. ****** ft****** * ) 

3 FOR HAT(8GX.*PR£SSURE*/43X«* CENTER FREQUENCY ( HZ ) » . 1 OX . » ( O p . RE F L 
A£11.5,’)*/40X , ********************* ****** » ♦ 8X » 

A ♦**»»»*»»»»**»»»***»» * ) 

5 F0RMAT(48X,E11.5,21X,E11.5> 

7 FORMA T (/, S CX. » 0 VER ALL *.?2X. El 1.5) 

8 FORMA T( ///44X , ’SYSTEM A VER A GE ’/ 44X ,»************** * ) 

9 FOR MA T ( 8 ( / > . 5fe X> ’ PRELIM I NA RY RESULTS OF »/ 55 X . »C L fl S SIrAL MODAL ANA i 
AYSIS’/44X, ’SPACE-AVERAGED, BAND-AVERAGED PRESSURE SQUARED »/44X , 

A «»*»♦»♦»»»**»»»♦»»»**»»*» a »**»»»»*» *»»♦**«»«*» » ) 

10 FORMA TT///44X, ’NOISE DUE TO MOtIOM OF SURFACE - ’,1?) 

CALL MDLRES 


1111 RETURN 

C ******************************************************** ******** 
SUaR OUTINE C0EF ( AA2 , B8Z ,CC2 ,ODZ,EEZ ,FF2 ,GGZ , h hZ, ALPHA 1 , PHI 1 
*ALPHA2,PHI 2.MUM ,NWN ) 

“DOUBLE P RE C I S I C N C A ( 4 , 5 ) , D E T ~ 

COMPLEX X , Y 


A STWM ( 1 , MWM ) 


» 

> 

E8=WNMC(NWN) 
D8T2ANN ( NWN ) 

> 

1 

IF (A3.EC.ES >E8=E3* 5 .0 
Gt4*A8**2*B8**2-2*A8**2 


ALPHAr-G/2 

pH I t ( (4»Ae»»4-G**2)»»0.S)/2 
xtc’mplxc alp'ha.phi » 

YTC SQRT < X ) 

ALPHA 1TREAL ( Y) 

PHI1TAIMAG ( Y) 


G=4 ,*Ee**2*D8**2-2. *E8**; 
ALPHAr-G/2 


PHITJ (4*E8**4-G**2)**D.5>/2 
XTC MP LX ( ALPHA » PHI ) 


YTCSQRT ( X I 
ALPHA 2tPE AL ( Y ) 


PHI2=AIMAG ( Y) 
SItALPHA 1**2*PHI 1**2 


S2TALPHA 2**2 ’PHI 2**2 
C A ( 1,5>=G.D0 


CAT 2,5) tq.CO 

C A ( 3 , 5 ) t 1 , DO 

C A ( 4 *5 ) TO . DO 

C A (1, 1) tPFLQAT (2*S 1*S2**2 ) 
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CAULt^lsflEUPAI 
CIA ( 1*31 -oFLOAT 
CA < 1,4>=0FL0AT 


CA i 2, 1)=DFL0AT 
C A ( 2 . 2) : DF L 0 A T 


CA ( 2* 3) -OF L OA T 
CA ( 2*4) -DFL OA T 


CA < 3, l)= D FLOAT 
C A ( 3 . 2 ) =DF L OA T 


CA| 3*3)=DFLOAT 
CA ( 3,4)=DFL0AT 


CA 14, 1)=OFlOAT 
CA ( 4, 2)=0FL0aT 


CA <4,3)=0FL0AT 
CA ( 4*4)=DFLCAT 
CALL DPINV ( CA , 
BBZ = REAUCA(1, 


CCZ=REALCCA(2, 
FF Z-REAL 1C a ( 3* 


GG2=REAL(CA(4, 

DOZ=BBZ 


(C. OQn) 

(2*S1**2*S2) 

IC.O) 


<2*< S2**2*2*S 1*S2-4*aLPHA2**2*S1) 1 
<4*ALPHA1*S2**2 ) 


(2*< S1**2*2*S1*S2-4*ALPHA1**2*S2> ) 
<4*ALPHA2*S1**2 ) 


<2*(2*S2*S1-4*ALPHA2**2> I 
(2*< 4*ALPHA1*$2-8*ALPHA1* ALPHA 2** 2) I 


<2*( 2*S1*S2-4*ALPHA1**2> > 
<2*(4*ALPHA2*Sl -8 *ALP HA 1**2* ALPH A 2) ) 


( 2 . 0 ) 

(4*ALPuAl ) 


( 2 . 0 ) 

(4*ALPHA2 ) 


4,1,4 t OETl 


HNZrFFZ 
RETURN 

C **************************************************************** ******* 

FU NC TION VI N T{AAZ .BB Z.CC Z.0PZ.E EZ,FFZ .6G Z.HHZ.ALPmA1.PHI1* 

*ALPHA2,PHI2,W1 ,W2) 

TER Hl r(AAZ / 2)*A LQG(W2**2*2*ALPHAl *W2+ALPHAl*»2+PH Il*» ?)*< <BB 2- 

♦ ALPHA 1*AAZ )/PHIl )*ATAN( (W2-» ALPHA1 J/PHIl )-( l A AZ / 2) *A LOG < W 1**2*2* 

♦ALPHA l»Wl + ALPHA 1** 2 *P HI 1**2 )-»((BB2-aLPHA1»AAZ)/PHI1)»ATANMW1 + 

♦ALPHA 1) /PHI 1) ) 

TERH2=(CCZ/2>»AL0G(W2»»2- 2»A LPHA1* W 2+ALPHA 1»»2* PHI 1* *2) ♦ ( < CCZ* 

♦ ALPHA 1*002 > /PH ID* A TANK W 2 - ALPH A 1 ) / PHI 1 ) - ( I CCZ / 2 > *A LOG t W 1** 2-2* 

♦ ALPHA 1*W1* ALPHA 1**2*PHI 1**2 )♦ C l CC2* ALPH A 1 *002 ) / PHI1 ) *A T AN! I W1 - 


*ALPHa1)/PHI 1) ) 

TERH3 = (EEZ/2>»AL0G (M2»»2*2»ALPhA2»W2*AlPHA2»*2*PHI2»*2)*MFF2" 
*ALPHA2*EEZ)/PHI2)*ATAN( <W2-»ALPHA2)/PHI2>-<( EE? i 2>*AL0G t U 1**2* 2* 
♦ ALPHA2*W1*ALPHA2**2+PHI2**2 )♦ ( ( FFZ -ALPH A2*E EZ > / PHI 2 > *A T aN( < W !♦ 


♦ ALPHA 2) /PHIZ) ) 

TER M4-(G G Z/2)*A LJ) G iw 2**2- 2»AL PHA 2»W 2 ♦ ALPHA 2»»2* PHI2»»2I * < «GGZ* 
*ALPHa2*HHZ)/Phi 2>*ATAN < I W2- ALPH A2 ) / PHI2 »-< < GGZ/ 21 *A LOG ( W l**2-2* 
♦ALPHA 2*Ml* ALPH A 2**2 +PHI 2**2 >♦( C GG2*ALPH A2*HHZ > / PHI 2 )»A TANt *wl 


• ALPHA 2l /PH I 2 ) ) 

VINTrC TERM1*TERM2*TERM3*TERK4 ) 


111 RETURN 

C **************************************** ** ********************** ****** 


SUBROUTINE MOL RES 


HDLRES OUTPUTS THE FINAL RESULTS OF THE REQUESTED MOOAl ANALYSIS 


10 0 WRI T E(IOUT, 1 ) 

TOTrO.O 

DO 120 NVOL - 1 *NV 

WRITE 1 1 OUT * 2 ) NVOL' 
WRITE (IOUT * 31 PREF 












ORIGINAL PAGE SS 
OF POOR QUALITY 


c#*** 

1111 


WRITE I IQ UT , 4 I 

00 lie NOB=LBANO.MBAND 

ANSS I NOB .NVOL>=ANSSINQ3t NVOL)/ll*ANSS(NOBtNVOt.) /SPLTINOe)) 
TOT rA NS S I N OB » N VOL ) ♦ TO T 

VAJL= 1 Q • * A L0613tA NSSlN0B.NV0Li/PREF»»2) 

F 0 = CE N TF"( noE>/2./PI 

WRITE 1 1 OUT, 5) FQ.VAL 

0 CONTINUE 

T0T=10.»ALCG10tT0T/PREF»»2 > 


WRITE I IOUT # 7) TOT 

0 C ONTIN UE 

TOTra.O 

WR I TE I I OUT » 8 ) 


WRITEIIOUT, 3) PREF 
WRITE II OUT, 4 1 


DO 130 NCB=L3AND,MBAN0 

ANSI NOB )=ANSINOB)y I !♦ ANS I NO B ) /SPLT I NOB 1 I 


TOTrANSINOB )*TOT 

VAL=1C.» AL0610IANS I N OB ) /PRS F»»2 

FQ=CENTF1N0B1/2./PI 

U R I TE I TOU T, 5 ) FQ.VAl 

0 CONTINUE 

T OT- 1G.»AL0G1 qJ T 0T/PREF*»2 ) 

WRITEIIOUT, 7) 'TO'! 

**«*#******#*«$# $***# A »»»»»*»«»» »» »» »»» »»» »»]»» »»»»«»»» »»i»» »»»» » i 

X~FORMA T I 8 I / 1 , 4 4 X ,' T Sp A cT^AVE R AGEO, BA NO-AVER AG ED PRESSURE ’SQUARED*/ 
*4 4x , * «»»»» »»»» »»»»»»»»»»»»»»»»»» «»»»» »» »♦»» »»»» »»» * 1 

2 FORMA T I / / / 44X , * VOL UME - *, I 3/44X ************ *)" 

3 FORMA T I 80X,* PR ESSURE */43X,* CENTER FREQUENCY I HZ ) * , 1 2 X . * I DB , REF S 
AE1 1.5, * 1 * /40X ~* ************ ****#4 44 ****** * , 8X , 

A ********************* * ) 


4 FORMAT I 40X , * I mODAl ANALYSIS)’) 

5 _F0RMATJ48X f E_lJ .5 .2 IX ,Fl 1 . S ) ____ 

7 FORMAT I 7,5 CX, ’OVERALL* ,22X , El 1.5 ) 

8 F0RMATI///44X, ’SYSTEM AVERA6E*/44X , *************** ’ ) 


RETURN 


I FTN 1754 IBANK 1141 OBANK 
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S XX.OFCALCaXX 

• 

OP 1A 12/l4/33-l8s39< 24, ) 

1 • C ******* ****** ****** ***** * ******* ** ****** ******** ******* **************** 

2. 

3 » 

SUBROUTINE OF C ALC 1 ANS , ANS S . WNMC *Z ANN , VMNPa . RMN , NM , ARE A , WM, WF, W I , 
CVLNM, SPL.RJA, 2M f CENTF . NS TOR .NV.NSMT .NAM .NS .NMS.NSMX .NFS.ISTYP. 

4. 

5. 

CNWS.NTOB.NPROBN.ZERO , PREF.VOL.RO, CO .PI.NST.L7.LS.L9.LiQ.I0UT.BW. 
£ TBND) 

fc . C* 

7. C* 

ANS: SPACE aVERAGfO PRESSURE AT OESCRETE FREQUENCIES OVER WHOLE 


8. C* MULTIPLE CAVITY SYSTEM 

9. C* ANSS: SPACE AVERAGED PRESSURE OVER EACH SUpVOLUME OF THE MULTIPLE 


10. C* CAVITY SYSTEM 

11. C * 


12. 

C* 


13. 


DIMENSION WNMC (NAM ) ,2 ANN (NAM) .VMNPA i NAM ) ,RMN( NAM.NV )* VLNM(NAM) . 

14. 

*NMl NMS), AREAINS), S^L INTOB), ANSlNWS ) , ANSS (NWS ,NV > ,WMI 3.NSMX > , 

15. 


♦CENTFINTOR. ).NSTORINS).ZM(wSMX).ISTYPINS> 

16. 


DIMENSION RJA(NTOB) .TBNDCNWS) 

IT. 


WF r 2 • *PI *KF 

18 4 


HI=2.*PI*WI 

19. 


DWr | WF-WI ) / NWS 

20. 


WRITE II0UT.9) 

21. 


DO 20 1=1, N U S 

22. 


AnS< I )=0.0 

23. 


00 20 .1=1, MmS 

24. 

2C 

ANSS II,J)=C»Q 

25. 


DO 24 1=1, NWS 

26. 


DO 22 N0B=1,NT0B 

27. 


WLrCENTF (NOE)* ll-BW ) 

28. 


mH=CENTF(N0E)*(1-»BU) 

29. 


TS=Wl4l*DW 

30. 

22 

I? I TS .ST. Wl» AnO.TS.LT. WH 160 TO 2 3 

31. 

23 

TB ND 1 1 ) =N0B*1 • 

32. 

24 

CONTINUE 

33. 


DO 800 ISUR=1,NMS 

34. 


IF ( IS TYP ( I SUR > .EQ.OGOTO SOC 

35. 


FC T=R0**2*C0**4*ARE A ( IS UR ) **4/ VOL** 2/2. 

36. 


JR- NS TOR 1 1 SUR ) 

37. 


READ! L9»IR )WM 

38. 


IR= NF S-»NS TOR ( I SUR ) 

39. 


READ ( L9* IR HZMIJ) ,J = 1 .NMIISUR) I 

40. 


IR= 3*NFS-*NST0RCISUR) 

41. 


READIES* IP) SPL 

42. 


DO 25 I = 1 , N T 0 B 

43. 

25 

SPL< I )=PREF**2*1C**ISPL (I )/ 10. ) 

44. 


WRITE 16.*) 2 M 

45. 


WRITE(6,*)WM 

46. 


WRITE (6,*)WNMC 

47. 


WR I TE I 6 , *) ZANN 

46. 


DO 500 MWM=1, NMIISUR) 

49. 


IR=I 1 1 SUR* 1 )*NSMT*MUM*N$MT*NST*INPROBN-!> ) 



READ 1 L7* IR) VLNM. 

51. 


Ip=(NSTOR(ISUR )-l)*NSMT*MWM 

52. 


READILIC’IR )RJA 

53. 


00 250 NWN=1,NAM 

54. 



55. 


IF 4 AB S 1 VLNM INWN ) ) .L T • ZERO ) GOTO 250 


— 
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c**** 


c **** 


50 


ICO 

25 0 

5 be 

c»*** 

C**** 


520 


540 

8CC 


C***» 


FAC=VLNMCNWN>**2/VMNPACNWN ) 

DO 100 1=1. NWS 

NOBrlNT ( TEND ( I » > 

S QM= R JA (NOB )»FCT*FAC*SPL (N O S) /(2 » BW »fENTF (NO B) ) 

AN1:SCM*VQ ( WM ( l.MWM ) .WNMCfNWN ) « 2M C MWM ) ♦ ZANN (NUN J , I, DW) 
ANSCI)=ANS(I ) + AN 1 


CALCULATE cABAP OVER EACH SUBVOLUME OF THE SYSTEM 
DO 50 NV0L-1.NV 


ANSSCI.NVOL >=ANSSCI ,NV0L)-»AN1*RMN(NW N ,NV0U 
CONTINUE 


CONTINUE 

CONTINUE 


CONTINUE 

MAKE C OJRRE CTION FOR RERADIATION THROUGH THE SURFACE Am O C ONV EiLt_ 

INTO PRESSURE 

DO 540 KSj.Nw S 

N 08=INT( TBNDIK ) ) 

NS(K>=ANS(K)/(1*ANSCK)/SPL(N0B)> 


DO 530 N VOL = 1 » NV 

_A_NS S C_K .NVOL )=F AC »ANSS IK t NVO_LJ. 

ANSS ( K t NVOL >=ANSS (K ,N VOL >/ Vl* ANSS (K .NVOL )/ SPL ( NOB > ) 
CONTINUE 


CONTINUE 

CONTINUE 


* WRITE OUT SABAP DUE TO ALL THE SURFACES ************************ 
DO 570 NVOL - ! . NV 


WRITE ( IOUT, 2 ) NVOL 

U R I T E ( 1 0 U T. 3 ) PRE F 

00 560 1=1. NWS 



FC=(I*DW*WI ) / 2 ./PI 
WRITE (ICUT, 5 ) FC.VAL 



560 CONTINUE 
570 CONTINUE 



WRITE (I0UT.8 ) 

WRITE (IOUT. 2) PREF 



TOTrO.O 

DO 580 1=1, NWS 



VAL= 10 » *AL06 10 ( AN S Cl ) / PR EF* 
F 0 = ( I *0 u * W I ) / 2 • / P I 

*2 ) 


WRITE (I CUT ,51 FQ.VAL 
TOT = TOT’ ANS (I > 



560 CONTINUE 

T0T = lO.0*AL0G 1 0 ( TO T/PREF**2 ) 


c 

WR I TE ( I OUT , 7 ) TOT 

**** 



! FORMA T( ///44X , ’VOLUME - * , I 2/44X . ************* • ) 
t FORMAT( SO X . ’PRESSURE */43X, * FREQUENCY ( HZ ) * . 1CX . *( OB ♦ REF& 

AE 10«5 . * I * /40X » * ************************** ’ , 8X » 

A ’******************** * ) 

> F 0 R M A T ( 4 8 X , E 10 . 5 , 2 i xTe 1 oTF) 

[_FQ RMA T( / ,5CX, » OVERALL *,22X,E10. 5) 

I F0RMAK///44X, ’SYSTEM AVERAGE* /44X. **************** J 
L F °J? MA T ( 8 ( / ) . 56 X , l? R E LI MI NARY R ES ULTS OF */55X, ’CLASSICAL MOQ AL ANA i 
AYSl'S*'/44X, * SPA CE-aTeR AGED, PRESSURE SQUARED ’/44X, 

A «»»»»»♦»»»»»»»»♦»»*»*»»»»»♦»»»*»*»*»»»»»»*»*»* t | 












fc :*■ 

~r~ ' i 
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XjU HFRE Q t X_X 

10R1A 'l2/14'/S3-ie ; 39(47, ) 

C **♦♦♦♦** * **»»»**»**»♦»» » *»***»»*****»****»*♦*» »♦»»»♦*»*♦» »*»»*»» ***** * I, 

SUBROUTINE HF REQ ( R J A , SPL , CE NT F , ARE A , ARE AO , MD~,ZMdA TA ~ 

♦.MASSUR.RJA RV .2NDATA.I0TYP . IG EMOV . I SV . 

*C, NV, NV 1, IHe AND, NTOB, ~NS ,NOO ,NMS ,MNSS ,BW ,NFS ,ANSS, 
»EX,MBAND,WMH,NSOAT.NSTOp .I sEAO.IPF.NFV.NSEAC.NPFC.NPROBN.HOP. 
*L2,L8*L13~,L14) 

C ******* ********************************************* ************ ******... 


C*********** STATISTICAL ENERGY ANALYSIS ******************* 
COMMON/ AREA8/R0.C0 , VOLtPREF ,P I 


REAL RJ A ( NS » NTOB > ,SPL (NMS , NTOB ) ,CENTF (NTOB ) , A RE A < NS > 
E.ZMDATA(NMS.NTOB) .RJARV (NS . NTOB > .ZNDATA (NTOB .NS ) 


£,EX(NPFC,NMS1 

DIMENSION MD (NM S ,N TO B ) , IOT YP ( NOO > , AREAO ( NOO ) , ISEAO( N M S ) , I PF ( NM S ) 
*MASSUR(MNSS, NM S),IGEM0V(2,NS>,ISV(NS)»M0P(4) 

*, A NSS ( NTOB » NV ) »WMH (NSEAC »NTOB ) , NSOAT (NMS I .NSTOR ( NMS ) 


DOUBLE PRECISION C IN V ,N VX ) , DET 
CHARACTER*1C CHR 


LAST=mBAND . 

LA STX=MbAN0-2 

C *********** LOAD ACOUSTIC LOSS FACTOR FOR EACH SURFACE ********** 
IR=2*NFV*NPR0BN 


READ(L2*IR1 ZNO ATA 

C**** LOAD STRUCTURAL LOSS FACTOR FOR EACH SURFACE 


DO 20 I S - 1 , NM S 
IR:2*NFS + Nc tOR (IS» 


REAo(L8*IR) (ZMDATA(IS,J),J=!,NtOB) 

2 0 CON TINUE 

c ********** LOAD reference spl ****************************** 

DO 33 ISn.NMS 


IR= 3*NF S* NS TOR ( I S ) 

R JAO ( L8 * I R M SP L ( IS,J>. J = 1, NT0B) 

DO 30 J=1,NT0B 

SPL ( IS.J)=PR£F*»2*1Q.»*( SPL (IS . J)/ 10. I 

30 CONTINUE 

C******** ZERO JOINT ACCEPTANCE ARRAYS ********************** 


DO 53 1=1, NS 

DO 50 Jrl.NTOB 

RJA(I,J)=0.O 

RJARV(I ,J)=0.0 

50 CONTINUE" 

C**** CALL SEA cALCULATtONS 


CALL 

MDEN 

CALL 

CJA 

call 

hfcal 

1111 RETURN 


c ********************************************************************** 

SUBROUTINE CJA 


DO 2300 IS-l.NMS 

IF ( ISEAOd S ) .EC.01G0T0 2000 


IF(NSDAT(IS).NE.O) GOTO 2000 
R-NSTOR(IS) 

L 
0 

DO 1300 NOB -MB AN0-2 »IHB AND 
NOB 1-NOB 







C ALL R J A E S T (RAD . IS t NO B T N OB 1 .K 1 

IF(K.EQ.i)RJA(IS,NOB'i=RAD 
Ir (K .EQ.2)RjARV(IS ,NOBI=RAD 


IF(K.EQ.1.aN0.IPf<IS).EQ.1 »RJARV(IS ,N0BI = RA0 
1000 CONTINUE 


IFiIPFdSI.EQ.il GOTO 2000 
15C0 CONTINUE 


2000 CONTINUE 

C»»*» STORE CALCULATED DATA ON TAPE 


00 2050 IS=1,NMS 

I F ( I SEAOd SI .EQ.OIGOTO 2050 

IF (NSOATl I S ) «N E .0 1 GO TO 2050 
TRrNSTORIlSI 


WRITE (L14»IR> (RJA( iS, Jl , J=1 ,NTOB) 
IR = NFS-»NSTOR(IS> 


WRITE(L14*IR)(RJARV(IS,JI,J=1,NT0BI 

2050 CONTINU E 

C***» LOAD PREVIOUSLY CALCULATED RJA,RJ*RV 
DO 2100 IS=1,NMS 


IF(ISEAO(ISI. EQ.OIGOTO 21C0 

IF(NSOATdS). EQ.OIGOTO 2100 

iRrNSDATIISI 

READi L14«IR ) ( R J A ( I S , J I , J=1 , NTQB I 

IR = NFS-»NSDAT(ISI 

RSA0(L14*IR ) iRjARV C IS , J I ,J=1,NT0B I 

2100 CONTINUE 

C**»* A SS IGN JOINT ACCEPTANCE TO EACH SUBSURFArE IN DIRECT PROPORTION 

C**** to SURFACE AREA RATIO 

D O 4 000 I S = 1 . N Mjj 

IF( ISEAOilS). EQ.OIGOTO 4000 

DO 5000 I - 1 , MN SS 

ISUR-MASSURII ,ISI 

I F ( I S U R.EQdS) GOTO 4000 

DO 2500 NCB=M3 AND » I HBAND 

RJARVjl SURtNOB l=AREAdSUR »/ AREA (IS I *R JARV (IS ,NOB» 


2500 RjAdSUR t NOB|=AREA(ISURI/AREA(ISI*RJAfIS,NOBl 
3000 CONTINnE 


4000 CONTINUE 

1111 RET URN 

C ******************************************** #*** $ 4 ****$* ft********^^, 

C ********* HIGH FREQUENCY CALCULATIONS ************** 


C ******************************************************* ******* 
SUBROUTINE HFCAL 


DO 5000 NOB=MBAND,IHBANO 
MDL=0 


DO 25 IS=1,NM$ 

25 IF ( HD ( I S . NOB ) .GT.O >MDL=MD (IS ,NOB I 


IF( MOL. EQ.OIGOTO 5000 
DO 50 1=1, NV 


DO 50 J= 1 , NV1 
50 C ( I , J ) =0 «D Q 

C************* FILL THE C MATRIX **************** 

00 1000 NV0L = 1 ,NV 

WR I TE ( 6 » * I N V ~~~~ ' 

CHr=*C0T» 


WRITE! 6 , * 1 CHR 

c**»* calcualTE the power transferred out of the volume through 


.0. ...-Jifct. - -Jm- - 
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SUR).EQ.NV0L.0R.IGEM0 V f 2 , 1 SUR ) .E C . NVO L) C LNVO L»_NVJlLJ 
♦DFLOAT CCVTC ISUR ,N0B>) 


C »»»« TH E„S i J £ U CTURAL UAL l S ADJACENT 
IF (HOP I 3) .EC.i )GOTO IOQ 

DQ_1 QO I S-l t_NMS 

i>(ISEA0cIS».EC.0)60T0 100 
DO 90 I=1.MNSS 


I S UR-MA S SUR Cl .IS ) 

IF ( ISUR . F C « 0 ) GO TO 100 

IFCISVflSUR).NE.NVOL) GO TO 90 

C< NVQL > NVOL 1- CCNVOL.NVOL) j DFLOAT CCOT CIS . ISUR .NOB ) ) 

90 CONTINUE 

1 GO CONTI N UE . 

C***'* CALCULATE THE POWER TRANSFERRED OUT OF TH E SUEVOLUME THRqUGH 

C»» »» TH E OPEN IJM GS 

DO 200 I~SUR = 1.N00 

IF C IS EMQVC l.IcUR). E Q.NV OL. OR.I GEM O V i 2 . 1 SUR ) .S C . NVO L ) C C NVO L , NVOI 

♦CCNVOL.NVOL) ♦DFLO AT C C VT C I SUR .NOB) ) 

2 On CONTINUE 

C**** CALCULATE THE POWER ABSORBED BY THE WALLS Op T«E SUBVOlUME 

C 


WRITE C fc,*)CHR 

DO 30 0 ISU R - 1 . N c 

IFCISEAOCISUR) .EC.OIGOTo 300 
IF (ISVCISUR).NE.NVOL) GO TO 300 


CCNVOL.NVOL )= CCNVOL.NVOL) ♦ DFLOaT l CBS C I SUR » NOB J ) 
300 CONTINUE 


C#*«* CALCULATE THE POWER TRANSFERRED INTO THf SUBVOLUME FROM OTHEr 

SUB VOLUMES I 

"DO" 500 I V0L=1,NV 

DO 4 00 IJUR = 1_»N00 

’ IFTiGEMOVCT, ISURT.EQ. NVOL. AND. IGEMOV C 2. ISUR ) .EQ .IVOL)GQ TO 350 
IF < IGEM0VC2. ISUR). EQ.NVOL. AND . IgEMQVCI. ISUR). Eq.IVOUGO TO 350 
“GO TO 4 00 ” ” 

35 0_ C C NVOL, I VOL ) - C CNVCL ,I V0 L ) - DFLOAT CCVT CISUR.NOP) ) 

4GC CONTINUE 

500 CO NTIN UE 

1000 CONTINUE 

C»»»» CALCULATE THE POWER TRANS F ERRED INTO THE SU BVOL UME THROUGH THE 
C**** STRUCTURAL WALLS ADJACENT TO THAT SUBVOLUME 

00 1100 1 = 1. NV 

1100 CC I.NVnrc.C 


WR1TEC6,*)CHR 

D O 2 0C 0 NVOL-1 , NV 

DO 1500 IS-l.NMS 

IF C I S E A 0 ( I S ) .EC.O)GOTO 15C0 


DO 1400 I=1,MNSS 
ISUR=MASSURCI ,IS) 


IF C ISUR. EC. C) GO TO 1500 
IFCISVCISUR).NE.NVOL) GO TO 1500 


C« NV0L,NV1)= C CN VOL »N VI) •♦DFLOAT IS PL CIS. NOE) )* 0 FLOAT CHI Ai I IS » I SUR . 

£ NOB ) ) /DFLOATC 2 .*BW*CE N TF CNO B ) ) 

' 1400 CONTINUE 

15 0 D CONTrNUE 

20 CO CONTINUE 

C» «*» SOLVE EQUATIONS AND STORE RESULTS *N APPROPRIATE ArrAY$ 

WRITE C6»*)C. NOB 
M- 1 








r* r* 'r* Uj W w tj u W'U v V ’W -vti# V w . w W |W u»| w «* W w;w '11'^ 

-gin* m jt* uij^Hjo gyjm •^in' cn,^ oijm *-«ci o oo -si|rh oi ;-f u rv)M|Q o,® >i;^ un«e o#:m m o ^>' ra -^jO' m?xr m.M 


K 

53 


Sms 


170. 


IF ( NV «GT. 1 ) CALL DPINV (C ,NV . M.NV .GET ) 

__ -- ; i; 

171. 

172. 


IF(NV.EC.l )C( l ,NVl)=C(l »NV1 l/C ( 1 , 1 I 

WRITE ( 6,*) 10.D0*0L0G10iCll r NVl )/DFL0AT|PREF 1**2 I 

I, 

17 3. 
l7“. 


30 2100 1=1, NV 

CC I»NV1) =10.0Q*DlOG 101C!I.NVI )/DFL0lT(PREF)**2) 

!■: *, 
■ « 

175. 
176 . 

2100 

A NS S ( NOB ,11= REAL 1 C 1 1 ,N VI I ) 
WRITE(6,*)C(1,NV1> 

h 

i 

177. 

178. 

5000 

CONTINUE 

RETURN 

. ... , ' i 


C ******* «»««*« ******************* ************ *********************** 

F UNCT IO N W IN(IS,ISUR.N09) 



c* 




c* 

CALCULATE POWER FLOW INTO SUBVOLUME THROUGH THE STRUCTURAL WALLS 



c* 

RN=C.O 




00 13 3=1,2 
Gr-2.0*CEN T F|N0B-J) 




A=CENTF( nqE-J) **4*(1-»4.C*ZMDATA(IS , NOB-J)** 2 I 
PHI=0.5*(4.C*A-g**2)**0.5 




WR=CENTF (NOB-J ) 
A L = -G / 2 • 0 




CALL VINTE CVIN ,NOB,AL,PHI,B,UR ) 




10 RN-RN+2.*VIN*RJA(ISUR .NOB-J >*RJARV( ISUR ,N0B -J)*M0 ( I S, NOB-J ) 


. WlN=(R0*AREA»ISUR)#*4/4.0/PI/C0>* 

. £ (RN-*MD(IS,Nk,BI*RJA(ISUR,NOB)*RJARV (ISUR .NOB) *P I*CE NTF ( NOB 1 / 



E (2.*ZMDATA(IS,N0B)I) 




RN=RN*(RO*AREA ( ISUR )**4/ 4. / PI/CO > 




WRITE (6, *11$, ISUR, NOB, HD (IS ,N0B> ,RN,WIN 
RETURN 

t 

l 

!■■ 


c ** ***** ******** *************************************************** 

I 



FUNCTION COTCIS, ISUR, NOB) 



c* 


5 


c* 

CALCUALTE THE POWER FLOW OUT OF THE SUBVOLUMES THROUGH THE WALLS 

l 


c* 

C0r=PI*AREA(ISUR)**2*MD|IS . NOB )*RJARV( ISUR, NOB) 

i 

» 



WRITE (6,*) IS, ISUR, NOB ,MD ( I S ,NOB ) ,C0T 
RETURN 

p 

■S 


C ******************* ************************************* ********** 

* 

1 



FUNCTION CBS ( ISUR , NOB ) 




C3S= AREA ( ISUR l*ZNDATA (NOB ,ISUR)/4./R0/C0 
WRITE(6,*)ISUR,N08 ,CBS 

\ 



RETURN 



C **************************************** ************************** 




FUNCTION CVT(ISUR.NOB) 

0= (4.0*AREA0(ISUR)/PI)**0.5 

r 



W VN=CENTF (NOB I/CO 

CVTr AREA0(ISUR|/4./R0/C0*C0ND(D,WVN,ISUR) 

... ) 



RETURN 



c »»»♦»»♦»»»*»»»***«****»»***»***»*»*»»»»»*»»♦»»»»*»**»»»» *»*♦*»♦»»♦ 

FUNCTION CCND(0,WVN ,ISUR ) 

CM= D »UVN 

IF( IOTYP(ISUR) .EC. 1) GO TO 10 

IFfCH.LE.1,44) THA- ( D»WVN I **2/ 8 . Q 

IF(CM.GT.1.44.AN0.CM.LT.3.557)THA=0.35*CM-0.245 

IF(CM.GE.3.557) THArl.Q 

IFICm.LE. 1.626) XX" = CM*4./3./PI 
IF (CM.GT .1.626 • AND. Cm .LE. 3 .43 3 ) XX=0.69 
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IF (CM »G T .5.443 
IF ( CM .GE • 5 • 4 
= TH A / < TH A 


RETURN 

1C I F (C M.LE.C ! »S36 

IFCCM.GT. 0.836 
IFCCM.GT.5.316 
IFCCm.GE.20.) 

I F CC M.LE . 2_. 1 2JL 

IF I CM. GT. 2. 121 

IF ( CM . GT.4 . 2. A 

IF ( CM .GE .6.602 
CO NO- tHA/CTHA 


return 

C *»♦♦♦♦* »***«»»*»»»» 
’ SUBROUTINE VIN 

COMP LE X X , Y 

Wl=CENTFCNOB>* 
y2=CENTF tNOe >* 
XrCMPLXC ALPHA 1 

V-CSQ R T ( X) 

ALPHA1=REA L CY) 


aAND j ,J^ ji LX.A.J* 
4) XX=4. /PI/CM 
**2.-»XX**2. ) 


7) THA= CM»»2 ./ 1 6 . 0 

7. AND. CM. LE. 5. 3165) THA= 0.1fi52* CM-C.1112 

S. ANC.CM.LT. 20.0) THA = 0. 005»C H+ 0.9 

THA=1.0 

) XX- CH»8./9. /Pi 

. AND . CM .L E e 4 . 2 ) XX~0»6 

ND. CM .LT.t . 6 02) XX~ 0 . 9 746-0. C8929CM 

) XX=8. O/PI/CM 
**2. *XX**2. 


*»»* * »»«*»***»***»*»*»*»»»»»»»*»»*a»» a************* 

TECV'lN.NOBtALPHAl.PHIl.G.UR) 

_____ “ 

1 1 ♦B U > 


,PHI1) 


PHI 1- AIMAG C Y ) 


AAZriG-WR**,,/ C ALPHA 1**2-»PHI 1**2 >)/< 4 *ALPhA1> 
- "H R**4 / 2/ C ALPHA 1»»?»PHI 1 **2 ) 

A 2 

ODZ=BBZ 


TERMlrCAAZ/ 2 l*AL 0 GCW 2 ** 2 -» 2 *ALPHAl*W 2 -»ALPHAl** 2 *PHIl** 2 )-»(CBBZ- 
»ALPHa 1 *AAZ)/PHI 1 )» ATAN C t M 2 ♦ ALPHA 1 ) / PH 11 ) "< ( A A?/ 2 ) »A LO G ( Hl*» 2 * 2 * 

♦ ALPHA 1*W !♦ ALPHA 1**2+PHI 1**2 ) ♦ < ( BBZ - ALPH A l* A AZ ) ✓pHIl)*A yANC ( 

♦ ALPHA 1) /PHI 1 ) ) 


.58. 

59. 

TERM2=CCCZ/2)*AL0GCW2**2«2*ALPHAl*W2-»ALPHAi**2'»PHIl**2)*C ICCZ* 

♦ ALPHA 1*DDZ)/PHI1)*ATANC CW2-ALPHA1 J/PHIl >-C C CCZ y 2)*A LOG C W l**2-2* 


!6C. 

J6l. 

♦ALPhA 1*W 1+ ALPHA 1**2. PHI 1**2 )♦ C ICCz* ALPHA 1 *002) /PHI 1 >*ATAN< 1 HI" 
♦ALPHA 1) /PHI 1 ) ) 


!62. 

!63. 

VIN=TERM14TERM2.CW2-W11 

VIN=VIN*2. 



RETURN 

r ************************************'**************** ********** 


SUBROUTINE MDEN 


CALCULATE THE MODAL DENSITY OF THE SEA SURFACE 
DO 1000 IS-l.NMS 


IF (ISEAO(IS ).EC.1)G0T0 10C0 
IFCNSDATIISJ.NE.OGOTO 100C 


jR-NSTOR ( I S ) 
READ! L13*IR)WMH 


GO TOC 10,20,30) ,ISE AO CIS ) 

C**»* SE A SURFACE TYPE »1. EQUIVALENT ORTHOTROPIC PANEL 
C* SUMS' ALL MODES WITHIN EACH BAND AND CALCULATED AND AVERAGE 
C* M AND N INDE 


!78 • 

lo CONTINUE 

!79. 

LA ST 1 =MB AND -2 

18 C. 
181. 

FAC=( WMHC 1, 1) *WMH< 1,2) )**0 
XLSWMH 11,7) 


YL-WMHI 1,8) 

FACXS t WMH tl.l ) /FAC ) »»0. 5 
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FACY=< MHHLU2 ) /f ac ) ** 0.5 

FACXY=IWMH ( 1, 1 )*WMH < 1 , 4 > *WMH< 1 ,2 1 * WM«< 1 , S ) ♦WmH ( 1 , 3 )> / 2 . 0 

IF ( WMH < 1. 1) . £Q .WMH I 1 .2 » > FACXYSFAC 

FAC 1=1 FAC/ WMH | 1 # 6> )**0.5*PI**2 

D O 19 NOB=L AST 1« IHBANO 

WL=CENTF<NOB»/FACl*H-BW> 

WH=CENTFINOe>/FACl*<l*BU> 


C* T HI S LOOP IS NOT INTEND E D TO BE COMPLETEn. THE LOOP IS CUT SHOo T 

C* WHEN ALL MOOES IN THE BAND HAVE BEEN CALCULATED. 

DO 17 M=1.500a 


Do 16 N=l,5000 

VAL=(FACX*(M/XL)**2 + FACY*(N/YLl**2>**2-»2.*(M/XL>**2«4N/YL)**2 


C *IFACXY/FAC-1 I 
VA L = SQRT ( V AL ) 


IF< VAL.LT.WL1GOTO lg 
IF (VAL.GT.UH)GCTO 11 


NC=NC*1 
MT=MT_^M 
Nf=NT-»N 

15 CONTINUE 

16 CONTINUE 
11 CONTINUE 


WMH 43, NOB )=ANINT4NT*1./NC> 

I F ( 4 -!.)» » (WMH (2 .NO B > •♦WMH <3 .NOB M «LT ,0. )WMH 1 2 .NOB I = WMH t 2. NOB I ♦ 1 

THE'ABoVE STAEMENT PREVENTS THE M,N INDEXES FROM HAVING 

value s that result In zero joint acceptance. 

mdYis,nob>=nc 

9 CONTINUE 


ir=nstor4is» 

WRITE <L13*IR)UMH 


GOTO 1000 

C**»* SEA SURFACE TYPE #2. CYLINDER ICAL SHELL 


2D CONTINUE 

WR = WMH I 1 , £ 1 /WMH C 1 , 1 ) 


F*;C = 2.*3**.5*WMH<1 .2)/WMH( J ,3 ) 
DO 29 N0B=MBAN0-2.IHBAND 


DW = 2.*BW*CENtF CNOB >/WR 
WH=CENTF«NOB)/UR 


IF« WH.LT.O.e5»MoHS ,N0B)=FAC*0.173*WH**0.5*Dw».5 

IF( WH.GT. 0.8 5. AND.WH.LT. 1.15 » Mn4IS .NOB UFA C*C. 8*DW ♦ . 5 


IF (WH.GT .1.15)MD4IS»N0B)=FAC*Q.25*DW*.5 
29 CONTINUE 


GOTO 1000 

C»*»* SEA SURFACE TYPE «3. 
30 CONTINUE 

DO 39 N0B=MBAN0-2,NT0B 


39 MO ( IS .NOB ) =WMH ( 3 .NOB )*CENTF IN0B)*BW*2.0 
GOTO 1000 
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174. 

175. 

110 CONTINUE 

BX-WM»jC 1,7)*CEnTF<N0B)/PIvC0 

576 * 
577. 

3Y = WMHC 1,8)*CENTFCNOB)/PI/Co 
M rNlNTCWMH(2,N0Bl) > 


c***« 


1000 CONTINUE 

D0_1050 _IS = ltNM 
in I N S D A T (IsT'.NE . o > go to i o so 

IR = 2 »NF S + N s TO R (IS) 

WRITE (Ll4»IR) <MDCIs.I»f 1=1 »NTOBJ 


148. 

149. 

DO 1075 IS=l,NMS 
IFCNSDATCIS ) .EC.OtGOTO 1075 

15 

0* 

IR=2*NFS*NST0R CIS) 

55 

1. 

READC L 14 * I R ) (MDCIS.I) »I=1.NT0Q) 

55 

2. 

1075 CONTINUE 

55 

3. 

1111 RETURN 


C ******************************** *********************************** 

C »»♦ »»»» »»» »♦»»» »»»» *»*»»»*»»»*♦»»♦»»»» » **»»»»♦»**»»♦♦»♦»»»»»«:»»»»»»» 

SUBROUTINE RJAEStIrAD.IS.NOB.NOBI.K ) " "" 


C* CALCUALTE THE JOINT ACCEPTANCE BY EMPHIRICAL CR SEMI-EMPHI RICAL 

C* EQU AT ION S 

C* RAD-SOLUTI ON 

C * I S = S U R F J C E N U M B ER 

C* NOB=B AND OF INTEREST 

C* NOB1=CONTRIBUTORY BAND 


K=E XTERNAL (K=l> OR REVERBERANT (K = 2) PRESSURE FIELD 


C#*** BRANCH TO SECTION FOR PRESSURE FIELD TYPE 
IFCK.E0.2) GOTO 100 


Goto tloo»ZQ3*30G>,iPF<is) 

C ************************************************ $:>****** ******** 


C**4* PRESSURE FIELD TYPE Ml. REVERBERANT FIELD 
100 CONTINUE 


GO TOC 110*120, 130) .ISEAO CIS ) 


NrNlNTCWMH C 3, NOB 1 J ) 


3! 

31. 

CALL RVBJA(VJP,BX,M,MP,PI» 




CALL RVBJACVJCS.3Y.NtNP.PI) 

RAD = VJP*VJQ*4,C;/WMHC1 ,6 »/ AREA CIS ) 


3! 

3! 

34. 

35. 

WRITE C fc.PtlS, NOB.M.N.RAD 
GOTO 1111 


3! 

: 31 

37 . 

C******44 SEA SURFACE TYPE #2. CYLINDER IC AL SHELL 
120 CONTINUE 


3! 

31 

38. 

39. 

3X = 2./3.*<4 .*PI*WMHtl,l )/ C 4 .*PI*WMH C 1 , 1 )*2 . *WMH C 1. 2 > ) ) 
IF (CENTF C NOB )/ WMH C 1 ,5).GT.1.0)G0T0 121 


3« 

3< 

to. 

ti. 

RAD=B X * ( P I / (2.0*RO*CO*CCENTF|NOB)/CO)**2*AREAC IS)**2) ) 
t *R0*C0*ARE A 1 1 S )*C CENTF CNOB )/wMHCl ,5 ) )**0,5/C UMH( 1, 4) /4 . > 


3< 
: V 

?2. 

?3. 

WRITE Cfc,*)IS. NOB ,5? AD 

. goto Iln _ 


: 3« 

3< 

?4 . 
?S. 

121 RAD: BX*CPI/2./ C CENTF CNOB )/ WMH C 1,5» ) **2/ARE A C I S 1 ) / C WMH C 1 , 
WRITEC6.*)IS,N0B.RAD 

4I/4.C) 

3< 

3' 

tfc. 
>7 . 

GOTO 1111 

C****4*4* SEA SURFACE TYPE #3. DATA 
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398.. L3.Q_CJDJ!LLme__ 

399. RAD5WMH< 2, NOB ) 

.400 « . GQ.I0_.U1 1 ; 

401 • C ******* ************************* ******** **************** ******** 

4 02_._ C »*** P R ES SURE FIE LD TYP E «2. AE RO DYNAMIC TURBULENC E 

403. 200 CONTINUE 

404_. GOTO( 21 0 . 220. 2 30 VlSEAO IIS > 

4 j5 . C******* SEA SURFACE TYPE U. EOUIVALEnT <jETAN6uLAR PANEL 

_ 406 . 21 0 CONTI NUE 

407. AX=EX(1.IS) 

408 . AYsEX C 3,_IS> __ 

4 09. B X-WMH ( 1.7)*CENTF(N0B)/PI/C0 

410. B V-MMH ( 1.8 >»C ENTF < NOB )/PI/ CO 

411. * NrNINT(WMH(2»N0Bl) ) " 

412. MP=M 

413. _ NrNIN T (UMH (3.N081) ) 

414. NP-N 

4 1 5 • CALL ATJAI VJP.AX.BX.M.MP.pI ) 

416 . CALL A TJA ( V«JQ . AY .8 Y .N »NP »P I ) 

417. RAD=VJP*VJC*4,q/WMHC1, 6 »/AREA<I$ ) 

i .. 418 • G OJ 0_. 1 1 LI 

419. C******* SEA SURFACE TYPE 42. CYLINDERIC AL SHELL 

42 0 • .22 Q CONTINUE 

421. GOTO 120 

422. C»***»»* SEA SURFACE TYPE 43. DATA 

423. 230 CONTINUE 

4 24 • RAQrwMHCl .NOB ) 

4*25. GOTO 1111 

4 26 ._ C »»♦♦*»* *»**» ** *»*****»***»**♦ »»***»»*»** »»*»*»»»»**»»♦♦»»♦»»*»»♦ 

427. ' C**** PRESSURE FIELD TYPE «3. RANDOM PROGRESSIVE WAVE 

428 . 3CD CONTIN UE 

429. SOTO< 310 .320.330). ISE AO (IS) 

4 3 .0 . C* SEA SURFACE TYPg- 41. EQUIVALENT RETANGULAR PANEL 

411. 310 CONTINUE 

j 432J, BX-WMH(1»7)*C ENTF (NOB )/PI/CO 

433. 3YrUMH| 1,8 )*CENTF (NOB )/PI/CO 

434. MsNINT(WMH(2,N0Bl) ) 

435. MP=M 

436 . N=NIN T (UMH( 3.N0B1) ) 

437. NP-N 

4J 8? CALL PMJA(VJP,BX,M.HP ,Pl) 

439. CALL PWJA( VJQ.BY.N.NP.PI) 

440. RApryjp»VJC»4.0/MNH(1.6>/AREA(IS) ; 

441. GOTO 1111 

4 4 2. C»* **** *_ S EA SURF ACE TYPE 4 2. CYLINDER ICAL SHE LL 

443. 320 CONTINUE 

t 444. GOTO 120 __ 

445. C******* SEA SURFACE TYPE A3. DATA 

446. 330 CONTINUE 

447. RAD=UMH( l.NOB) 

448. G OTO 1111 

449. 1111 RETURN 

4 50 » c»»»*»»»» 

4 51 * C **************************************************************** $***#*£ 

452 • c**** **************************************************** ********** 

453. SUBROUTINE PUJA ( VJP .B * J «K .PI) 

454. C* 
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4 S 5 „... 

456 . 

457 . 

458 . 

459 . 
”46 0 ." 
_46 1 *_ 

462 . 

465 . 


_C* ANALYTIC CALCUL ATION OF S IN*SIN MOPE, 


C* 


WAVE ACOUSTIC FIELD JOINT ACCEPTANCE 

J JP r3_. 0 

IF! t-l)**t J+K ) .LT.CI GOTO lm 

VJP = 2.»J*K/PI»>j.2/ ( J»»2-B**2 ) / IK»*2-B»*2)»1 1-1 «i )**J» CO S(PI*B) ) 


464 . 
_ 465 _« L 
466 . 
467 . 


1111 RETURN 

C *♦♦♦»»♦ » ****»*** »**»*»*** ♦»*«»»*»»»»»»*»«»»♦»*»»»»»» » &*» »»»»»»>» »»»»» » 

SUBROUTINE AT J A I V JP , AL , B , J , K , PI I "" ~ “ 

C» SPECIAL R OUTINE FOR THE ANAL YTI C CALCULATION OF PROGRESSIVE 

C* WAVE FIELD JOINT ACCEPTANCE WITH SIN*SIN MODE SHAPE 

C* 


3 1 = < 2 . / < j**Z.k**2> ) 4*0 • 5*B 
3 jrB/ j 


: I 
Y i 


468 • 
469 . 
470 • 
471 . 


DJ=t I AL** 2 * 1 )*EJ** 2+1 )** 2 - 4 *B J **2 
IF I J.E Q.K) GO TO 10 

3k zm 

OK; I I AL»* 2 + 1 )»BK»» 2*1 ) »» 2 . 4 » 8 K»» ? 


472 . 

473 . 


A JKr< J**2-»K**2 > **2/ I 2 . *P I **2* J**3*K **3*DJ*DK)*( 1 1 AL**2“1 >*B 1**2+1 
A i »S1»»2)»»2-IFL0AT I CK**2-J»»2 » > ✓ I K»*2.J»*2 > )»*2) 


474 • 
475 . 
476 • 
477 . 
'478 • 

479 . 

480 . 
48 1 • 
48 2 . 
483 . 


B JK- 2 .*I J** 2 +K ** 2 )** 2 / ( P I** 2 *J** 3 *K** 3 * DJ*DK J *AL*B 1 ** 2 * I « AL** 2 - 1 ) _ . 

»*B 1 »* 2 M> 

VJP=A JK*I l-l-l )**J*EXP t-PI*AL*B »*COSIPI*B ) » ♦B JK*( ( - 1 ) **J*EXP C -P I* ‘ * 

*AL *B ) * S I N ( PI * 8 ) i 

GOTO 111 ! 

10 AJ= 2 ./lt J*PI )»» 2 » 0 j»» 2 )»l ( I AL*» 2-1 ) *B J»» 2 * 1 ) »* 2 - 4 * ( AL*B J **2 )*»2 ) 
EJ= 8 ./ « J*PI )** 2 /DJ** 2 *AL*BJ** 2 *M AL** 2 - 1 »*B J** 2 * 1 ) 

CJ =l./< J»PI )/ D J»AL*BJ*l I AL»» 2 * 1 )» B J** 3 + 1 ) . . 

VJP = A J*< 1 - 1 - 1 ) **J*E XP l-PI*AL*B >*COS IPI* 8 »)-*EJ*I - 1 ) **J*EXPI -PI*AL*F f 

» i *. - T u i ft T a. n » . r* a Vi 


484 • 
485 . 

ini 

return: 

SUBROUTINE RVBJAIVJp.B.J.K.PI) 


486 . 

C* 



437 . 

c* 



488 . 

c* 

SPECIAL ROUTINE FOR ANALYTIC CALCULATION 

OF REVERBEPAnT 

489 . 

c* 

FIELD JOINT ACCEPTANCE WITH SIN*SIN MODE 

SHAPE 

490 . 

c* 



491 . 

c* 



492 . 


DOueiE PRECISION E,F,G,H,DPI 


493 . 


DPl= 3 . 14159265 Do 


494 . 


vJp=o.a 


495 . 


IFI l-l)**( J+K ) .LT.O)GOTO 1111 


496 . 


E=OPI*DBLE I <B*J) ) 


497 . 


F=DPI*OBLE ( IB-J) ) 


498 • 


G=DPI*~DBLE I I B ♦ K 1 ) 


499 . 


H=QPI*OBLE 1 CB-K ) ) 


500 . 


IFI J.EQ.K ) GO TO 200 


501 . 


Tlrl • 0 /( PI** 2 * 6 *IK** 2 -J** 2 ) ) 


S 02 . 


VJPrTl*(K*IClN t E > -C IN * FI 1 - J*l CIN 1 G ) -CIN (H )) » 

503 . 


GOTO 1111 


5 04 • 

200 

CONTINUE 


505 . 


T 1 A — 1 l./l 2 .*J*PI** 2 *b > ) 


506 • 


T 1 B=(CIN<E l-CINIF) ) 


507 . 


T 1 =T 1 A*T 1 B 



M 


528 . 
5 g 9 • 
510.7 
511. 


Jill- 


T2 = (l./2./PI/B >*ISI IEMSIIF >1 
T3= I l./PI*»2/ I J**2-B**2 H *1 1 . -i-1 )** J*COS IPI»B ) ) 
VJP=T 1 «T 2 *t "3 

_RE T URN 
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_FUNCJLIO_N_J 
DOUBLE PRE 
IF ( REAL< X ) 
A =3. ODD 

FC=1.DQ 

DO 10 N=0, 
PR-DF LO A T ( 
Fc=FC* 0FL0 
IF tFC .EC.D 
A1=DFL0A‘T( 

A = Af A 1 

IF ( AB S I A 1 ) 

continue 


CONTINUE 
SI = PEAL« AJ 
RETURN 
SI=PI/2.0 


RETURN 
FUNCTION C 


DOUBLE PRE 
IF ( REAL* X ) 
A=0.QD0 

F C ~ 1 r C 0 

DO 13 N = l, 
PR=0FLGAT< 


Fc=FC* DFL 
A1 =0FLQAT( 
ArA-»Al 
IF i AB S ( A 1 ) 

continue 

CONTINUE 


C I N-REAL l A 
RETURN 


CIN-0. 5772 
RETURN 


END 


I (X ) 

Cl SI ON X,AtAl#FC»PR 
«GT . 3n. )60T0 2s 


40 

2»N+1> 

AT ( ( 2*N ) * I 2*N + 1 ) ) 

•AD D )J_C = 1_. 0.H0 

(-X )i*N)#X»’*PRyPR/FC 


.L£. 1.00-5 > 


TO 20 


I N ( X ) 


Cl SI ON X . A . A 1 . F C t PR 
»GT . 30. > GOTO ?5 


4 0 
2#N> 


OAT ( (2* N -1.»*»2*N ) ) 
(-l)»t-l)*»N)»X»»PR/PR/FC 

«LE . 1 .CO-5 ) GOTO ? 0 


1574AL0G! REALtXI ) 


TN 3883 IBANK 1548 OBANK 5 COMMON 
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XX.SEAPRM ,XX 


FAC= 6. 283185 
WRITE* I OUT . 15 ) 


DO 430 1 = 1 , NMS 


I S zNS TOR 1 1 ) 

IF I IS.EQ.ISOIURITE! I 0 UT. 21 » 1 , 1-1 


IF I IS .EQ.I SO IGOTO 400 
IFIISEAOII 1 .EO.O) GOTO 400 


WRITE ( 1 0 UT, lfc ) I ,N JAPE, NSTOR III 
WRITE IIOUT , 171 


ISO=NSTOR 1 1 ) 

D O 35 0 J = HE AND ,IHB AND _ 

FQ=CENTF! JI/FAC 

WRITE 1 1 0 UT , 18 lFQ f SPL(I»J).RJAII.J)«RJARVII«J) 

3 S 0 CONTINUE 

WRITEItQUT, 19 ) 

DO 375 NOE=HbANd,IHBANO 


24. 
25 • 

WR I TE 1 1 OUT ,2o)FO,MD(I,NOB), ZMDATACI ,NOB > ,2NDA TA ( NOB , I ) 
375 CONTINUE 


26. 

27. 

400 CONTINUE 

IS FORMAT! //4fcX, ♦ SEA ♦/ 4feX ,♦*********** *** • ) 


28. 

29. 

16 FORMAT! ✓ / 4 4 X , * * SURFACE »,I3,* ISAVEO ON TAPE *,13,*, SURFACE 

*♦ 

A I 3 , * ) M 


A 15 X f * »»»»* 


f I H Z ) 
***** 


S P L f 


, 1 2 X , * JA * , 10 X , 'JAREVV 


**«#****• ) 


n i ^ A f -rxTTicTTTT •** -r *ir nr ^ — / 

18 FO'RMATI 17 X,E 10 » 5 , 4 X , £To 7 5~,~4 X, E 10 . 5 , 4 X ,E!o. 5 > 

19 F 0 RMATI// 15 X , * FREQUENCY <H Z)», 1 QX,» M 0 » , IPX , *ZwDAT A « , 
E 10 X, • ZNDATAV 15 X, »**************#♦, g x , 
(•*?4#*#** t SX.*$***$4*** ( 8X« **********) 


20 FORmA T l 15 X,El 0 . 5 , 10 X,I 5 , 10 X f E 10 . 5 , 10 X,E 10 . 5 ) 

_2 1 FORMAT! 5 X, *QATA FOR SURFACE - *, 13 , * SAME AS FOR SURFACE 
111 RETURN 
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,s 


X XjtSX.A8E.S-.-XJL. 

08 1A 12/14/83-18:3916, ) 

1 ... ■_S.U-9_8Q-W11-N-S SE-ARJLSJLN JLO L .NV .PREF . N.TQB ,HBA.N 0 ».I.MB A .NQ. A N S S « CX NT E.^. 

CIOUT) 


c . 

3. 


4. 

5. 


6 • 

j . , 

6 • 

9. 


10 . 

11 . 


12 • 

13. 

14. 

15. 


16 . 
17, 


18. 

_ 19 ._ 
20 . 
_2 1 ._ 
22 . 
2.3 

24. 

25. 

26 . 

_27 • 

28 . 

29. 

3c. 

31. 


32. 

33. 


C* 

C* 


C* 

c* 


SEARES OUTPUTS THE FINAL RESULTS OF THE REQUESTED SEA A N ALYSIS 


DIMENSION ANSS (NTOB ,N V) ,CENTF ( NT08 ) 
FAC = 6. 283165 


100 


WRITECIOuT,l» 

JO 120 NVO l =1,nV 


TOT-Q.O 
WRITE CIOUT. 2) 


NVOL 


WRITECI0UT.3) PREF 
DO 110 NQB=MBAND.IHBAND 


TOT= 10**C ANSS CNOB .NVOL 1/20.0) -»TOT 

MR I TEC I OUT, 5 I CENTF C NOB )/ FAC. ANSS C NOB .NVOL ) 


110 CONTINUE 

TOT- 2 0.*AL0G IOC TOT I 


120 


WRI TE C I OUT , 7 I 
CONTINUE 


TOT 


C ******************************************$«******** 4** **««**«** 4*** *4# 

1 F0RMATC8C/).44X,*SPACE-AVERA6E0.BAnD-AVErAGE0 PRESSURE SQUARED*/ 

444X . * 444444444444444444444444444444444444444444444* ) 

2 F0RMATC///44X,* VOLUME - I 3/44X ,’444444444444* | 


3 F0RMATC80X.*PRESSURE*/43X, ’CENTER FREQUENCY CHZ)*»lPX,’CDe»R£F£ 
AE 11.5, *) * /4CX , *444444»»444444444444444444* ,8X , 


4 *4*44*444444444444444 » ) 

* FORMA T C 48X.E1 1.5. 21X. El 1.5) 


7 FORMA TC /, 5CX, ’OVER ALL’, 22X, El 1.5) 

C 4444 
1111 


RETURN 

END 
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,5 XX* ALL 

LQR1A 12/ 


0Cj.X>U_ 

14/33-1 
C »*»» 

c**«* 


8 ; 4 C ( 3 * ) 

»»»»» »» * ** »»» ****L!?*j?* »»»* »»»»»♦♦ ♦ »»»»♦ » »♦»♦**» »»» »»»» »♦»♦»» »»»» »»♦ * 
SUBROUTINE ALLOC IX ,TSZ>’ 

*****^********Jr**#«« 

IS2= MC 0 RFf'il's 2 )-L 0 C I X ) 

RETURN 


ENTRY IALLOCdX^ISZ) 
IS 2-MC0 RF SJIJ Z>-t T OC<IX) 
RETURN 

_ ENTRY I FREE (MARK ,IL » 

CALL LCORFS CIL ♦LOC (MARK >) 


I 


RETURN 

ENTRY FRE E ( ARK ,IL ) 

CALL LCORF S IIL +LOC ( ARK ) ) 


RETURN 
E 
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IX. D ALLOC, XX. 

i 12/14/33-18:40(5.) 

_1. __ SUBROUTINE dALL0C(D,L0J>L» 

"2* DOUBLE PRECISION 0 

3 . j CO MM_0_N _/S TRG 2 * / INUMD »_IS_VD A(4Q ).I $_V DX (40 ) 

4. DATA INUMD / 0/ 

5 •_ IA-M C 0RFS( IDIM»2.3) 

' fcT ID I Mr (IA-L0C(D))/2+l 

7 •_ I I X=IDIm»2*L0C(D) 

8. IF I InUMD. GE. 40) STOP *OALLOC MAX • 

9. INUM P = tN U M0 + 1 

ISVDAIINUMD)=IA 

ISWOX (INUMD )-I X 

RETURN 


SUBROUTINE DFREE ( 0 , ID IM ) 

•iOubl; precisiqm o 

C0MM0N/STRG2S/INUMd»ISVDA(40) , IS VOX (40) 


END IF 

1 0 CON TINUE 

STOP *DFREE NO-FIND* 

'0 
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XX .REVERE , XX , 

IA 12/14/83-18:401 2, » 

1 . C************* »»»» *»» *»*»*»»»»»»»»♦»»»»» »*»»» »♦ »♦» »»»» »»» » »»» »♦»»♦♦♦ 

• SUBROUTINE* ~RE VERY! UNMC ,clv\ ZND AfA ,ZN DI ,V MNPA .CENTER N^Tm , N TOB, 

._ c LBANO ,MBANP r NS.RO»CO,VOL.PI»NPRQBN»DT«NFV. CZANN.L 2 « IOU T t 

« C* 

. C* CALCULATE REVERBERATION TIME OF COMPLEX CAVITY WITH 


NONUNIFORM SURFACE ABSORPTION 


£. DIMENSION LNMC INAM 1 ,CN ( NS f N AM t , ZNDATA INS ,NTOB 1 , 2ND 1 1 NS , NTOB ) 

9. CtVHNPA( M AH)t CENTF | NAH ) 

10. COMPLEX cZANNINAM) ,PNT,ZA 

1. PRMS=CENTF ( 1)*PI 


. C* CALCULATE THE COMPLEX ACOUSTIC DAMPING 

. IRrNF V+ NPPO SN 

* IR» 

• 1 1 N 



40 

rC. 

C**** 

C**** 


IFI IS 
DO 40 
2 A -CM 
DO 40 
CZANN 
C/WNMC 
CONTI 
CONTI 
CA 
PO 


VI ISU 
NOB - 
PLX1Z 

JUlt 

litre 

tl>*C 

NUE 

NUE 

LCULA 

TENTI 


R ) .EC *0 ) GOTO 5? 

LB AN_0_,M8 AND 

NDATAIISUR.NOB ItZNDIlISUR ,NOB 1 1 

NAM 

NIIS UR, I >*AREAIISUR t*R0*C0**2/V0L/VMNPAI I t/ZA/2. 
ZAmn II t 


T r o • 0 

PNTrt C.O, 0 


UP I TE 1 1 OUT 
FORMAT! g(/ 


TE THE OVERALL REVERBERATION TIME ASSUMING EQUAL 
AL ENERGY IN EACH MODE AT TrQ.Q 


.01 


, 55 I 

) , 15X. ♦OVER ALL REVERBERATION TIME «// IPX, » TIME * . IfeX 


PRMSIrlNAM*R0«»Z»C0«»4l»»Q.S 

I CONTINyE 
DO 70 NWNr 1 .mAh 


Tr T+D T 

PNTriC EX PI -CZANN IN W N t »WNMC I NW N I »T )»COS IWNMC INW n t»T t 
1 ♦CZANNINWN)*SINIWNMCINWN)*TI |4PNT 

PNT; PNT»C0N J6 I PNT) 

PNrREAL I PNT >*PN 
IFINWN.EQ.ltPNri.O 



2. 

ii. 

70 

Continue 

PRMSrR0*C0#*2*PN**0.5 

. 1 

J'i f 

4 . 

IS. 


PRMSzPRMS/PRMS I 
WRITE II0UT,75)T.PRMS 

ll i 1 

■ j 

16 . ' 
17. 

75 

format i iox.fio .5,1cx,fio.S) 
IfIPRMS.GT.C. 00111 GOTO 60 

: 1 

.U ■ ■ | 

18. 

19. 

inr 

RETURN 

END 





HGSCEEfT^^ "a. 


mcET^ T^IN' 3^ 


: *y>( i> .DEL 
£FR£E L3 c 
^ F R£ £ Li* 
EFREE L 2 * 
a FREE L 3 „ . 
SPREE L 4 * 
aFREE 13. 
SFPEE'Tr™ 

cJFREE lt* 
5FREEM.5, * 
iFREE ,L? f 

EFREE Lir. 
SPREE l::.^ 
3FREE LIE. 

3 FREE LIE. 



It 

a FREE LIE . 


1 

* ' .7 

* 3FREE Li 6 • 



iS 

SF RE E L 2 7 • 



' *$" 

~ ~ i delete « C 

L 2 

i 

22 

SDELEjE t C 

Li 


■ ~ * a 

aDELEfEtC 

L2 


■■ “ 

aDELETE * C 

L 3 

r j 

v* 7 

w - 

EC EL l T E « C 

L 4 


~ t 

iDELE tE t C 

L 5 


w ^ 

*"' soelete • c 

L6 

i 

4i6 

SDELEtE .c 

LT 

27 

SOELtfE^C 

Is 


• c 

EDELEtE * c 

L 9 

* ■ 

— * 29 

EDELEjE f C 

LI 


:n 

edelete, : 

Li 


3 - 

'* ‘SDELEtE'.C 

Li 


3 2 

30EL£T£tC 

Ll 


32 

SDELEt S ♦ C 

Li 


34 

SCELETt t C 

Ll 


3 5 

‘ 2DELETE.C 

Li 


36 

3 DELETE tC 

Ll 


3 P R T t s 

XX . T *°l\ 







‘ j ^ ^ * : " ' '^ : .’ ; 7 '-' ''■■ : ■ V ; -i ■ Rs-SS.3^' 


r^T^r^nsr' 
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?„?#xx( n 

5 CUR CE 

1 


v ■ "■■■'■■“• "*"■ ■'. 

5 r T fe » 3 

XX'.MAIN.XX. ‘ ' 


i- ■ 


OF TN , s 

XX .dATaLO.XX, 

r,~ 


. ‘ X 

$FTN*S 

XX-FEOAT .XX. 

a 


4 

or in v s 

XX.FROCAL.XX. 

t 

r ; 

*"“ ■*■ r " 

' SFTSSS 

XX.Sf^CAL.XX. 



6 

5lF :’■■•. s 

XX ^‘JLCV.XX. 



--— ** j — 

£ F T jv, t S 

' XX . VPN^C7xx T" 

f 

; 

e 

SFTN .$ 

XX.PRMCALrXX, 

•! 


9 

£F TM • S 

XX •M0LP9H * XX * 

i* 



iFTM*S 

XX. CALC, XX. 


f 

• * _ i " ■■■• 

O f T n* ; s 

XX .OFCALCf XX. 



1 2 

OF TN *S 

XX.HF°£Q <XX . 

ij 


1 2 

'" aFTNf.S 

■'*■ *^x , SEAP9M , xxr 

i 


it 

aFr w *$ 

XX*S£AR£SfXX. 


~ iE 

~ OFT^.S 

XX. ALLCCVXX ' 



* 6 

5FT4.S 

XX.OALLOC.XXi 

* 


"". — ~*17 

OF T\ « S 

XX*R£V£F3 .XX i 

i 


-8 

£F ACK 

XX • 

2 


' .9 

3P\'EP ' 

TFF5~ 


i 

0 " 

3f* A ° * S 

XX.NAM.XX.PPO 


-I 

axo.T xx.pqo 

X 


- 2 

Oft CO « P 

XX.3AT# _ 


Wr,S' yx'.SCU»C2" 
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_ sxor xx 

2 BADO.P 


SPRTVS XX. NAM 



SOUR C2 

.PRO 

XX.JD^Ti 
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NKMim .I.V*« 

ill* «*• 

L|s SYSt*«SPCf 
St3 

IV »X.p*r; 

:* -x.xilcc 

IV VK,:»LL3C 

~1‘. HanWco***'*'* 

Tror C3“SES_ 

SCC A* 

IK t*.c»T»L0 
IK Y* t rec»r 
see o*.» 

'Ik **,r®c:At 
see c*.»_ 

iK - *x,e-c:»L 
sec a *. a 

I*. YX.PO^CiL 

see e*.« 

'tV'ifX.MUtev' * 
srs 

»* t *»Ktc 

see t.*.* 

I*. YX.CALC 
se ; h«,4_ 

:*i tx.orCALi 
ses i *. 4 


IN 

xx.hprcg 

ii Z J*,i 

I *• 

X X , MCL®P M 

IN 

XX t S^APPH 

IN 

<X,S^A’£S 




-4 <1* Ol £? t ti 
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H p C T I r S IN 3C 6 * X y ( 1 > • M A M 

xx A ' 

r* LtB SYSt*iSrt$ 

‘ “ SE6 MAINS 

IN XX. MAIN* 

. ... .. ~ 1>f x jj-- A ll 0 C ' 

IN XX # C : ALLOC 

*’ * ’ Tn ' *Ua i fci C UM M r N 

£ TYPE C0H6EG_ 

" 9 v ' *"' $ EG A * ~ 

;i in xx.oatalo 

7l ■**"■ IN XX . FED. A T 

12 52 5 SP-rA 

* * "" ~ in Yx^ccaT^ 

iU $ 5 5^ c * * A_ _ 

'IE " IN XX.BNDCAL 

1c SEC C*»A 

“ “Y7" IN XX^PPPCAL* 

IS $2G E**A- 


$2 3 

IN' 
F*. A 

XX.MUICV 

$20 

' IN 

b# • A 

XX.VPNMC 

52 5 

IN 

H*# A 

XX. CALC 


IN XXfcDFCALC 

• A 

IN xxYHr'Rtd^ 

* A 

Xfi XX.HDLPRM' 
IV XX.SEAPRM 
IH XX,'$EARES‘ 
IV XX, REVERB 
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f 

f 


MP£TITiIN3CS*XX<U • T APOT 

1 S'A S'G , Tf "T APETtV", T . S AVEO'-T 

2 aCOPY.G LC.,TAPEOT. 

T aCOPY.G Ll»»fAPEOx« 

4 3C0PY.G L2« tTAPEOT » 

3C0P Y - »6* L3 ."It APEOT » ' * 

aCOPY.G L4..TAPE0T. 



fc 
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MPETI.TBIn303*XXUJ •C-VTA1 _ 

- m i' multipJe cavity* check case: ' 

2 MARK PET! ITT 

j * - A 4 0F TI0N SEtEcfiON'"™ " * 

4 j 

-y- • - i, 3 •$;!"/ ■ “ . . ■ 

_ fc a,c,a,G_ _ 

7 ~~'T, 1/1,0 ' ~~ 

a i B/JEy OAtA F ILE SIZING parameters 

9 3,5, 4 ,20,2,5,4,5, 6 C ,20 * 0 * C ,6 0,4 

10 I C. RANGE! FREOUENCY DOMAIN ^ . . . _ _ 

11 1,16,16 ,0 .12 

12 a CUR ANGEt DESCRETE FREQUENCIES _ 

* 3 l~ E,. TOLERANCES 

14 0.001,3.01 _ . 

15 1 F .MATRIX S 12 ING 

16 13.4,2 , 2 # .0 , 3 , 15, 5,2,4*60, 2D, q, Q , 0 , 0,4. w __ . _ 

17 1 G. MULTIPLE CAVITY PARAMETERS * 

18 63, 1,1 0,10 ,60 ,0.02,5 ,3 .01_ _ _ ____ ________ 

19 1 ** H » ORENIN G/ VO LUMC ”rEL AT I ONSH^IPS" ~ 


2-! 
21 
2 2 
2 3 
24 

1.1 

1 

1.1 

1 

0.3 

,2 

I. OPENING DESCRIPTION 
,11.09 ,c,9 r 6 

J. STRUCTURAL DAT 4 FILE ACCESS AN D STORAGE 

- — ~ 

2 5 

1.2 



26 

1 

K, GLOBAL NODE POINTS 


27 

I. 

9 • 2 9 f 0t0,0,0 


28 

2, 

9.29,3,0,5.04 


29 

3, 

9. Z 9 , 4 . 4 l , 0 • 0 


3 0 

4, 

a *3 . 4 .41 fC.G 


31 

5, 

q.C1,4 .41,5.04 


32 

6 . 

4.645 ,4.4 1 ,0.0 


3 3 

7, 

4.645 ,4.4 1 .5.04 


34 

s. 

4.645 ,2,2 , 0.0 j 


3 5 

<5. 

4.6 45 ,2.2,5.04 1 


3 6 

. .10, 

0. Q , Q • 0 • 0 • 0 


3 7 

H. 

4.645 ,0.0 ,0.0 


3 S 

12, 

O.n ,0 .0 j 5 • 04 • 


39 

13, 

4.645 ,C.0,5.04 


.40 _ _ 

1 

L. surface description 


’4 r~ 

1, 

1 1 22. 23 .i . Z • 3 


4 2 

2, 

1.46.52,4,5,3 


4 3'" ' 

zV 

1 ,23.41 ,4 ,5 .6 


4* 

4, 

1,23.41,6,7,3 


45 

1 

M, MASTER SURFACE / SURFACE RELATIONS 


4 6 

1, 

0,0 


47 

2 , 

3,4 


4 6 

3 

N » STRUCT URAL CONSTANTS 


49 

... ... - 

O.STRUCTRUAL MCOAL DATA 


50 

a 

P. STRUCTURAL CONSTANTS : SEA 


5 l 

l 

Q. VOLUME DESCRIPTION 


5 2 

i, 

1,103.24,10,11,4,12 


5 3 

2 , 

1, 103.24,11 ,1 ,6,13 


54 

l 

P. ACOUSTIC CONSTANTS 


5 5 - 

tl .420E-5 , 13200.0 ,3. CE-QS 


5 6 

a ... 

S. ACOUSTIC MCCtL DATA . 
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r 

1 

< 

( 

t 

I 


JJL 

S 9 


_59 

6 o" 

61 

62 

63 


It 2 
J 2 1 0 


T , SURFACE /VOLUME RELATIONSHIPS 


64 

65 

66 
67 
6 3 
69 


3,1 

1,2_ 

0 

D 


0 

0 

1 

200 . 
1000 
G 


U Vs up Met ABSORPTION 

V ■STRUCTURAL OAMPIN G 


~W .EXTERNAL SOUND PRESSURE LEVEL 
* • E . x T E.RN A L PR E S SURE FIE LD_D E SC R I P T 1 0 N 
V • BAND CENTER FREQUENCIES ~ 

* 2 5 0 • , 315 . ,4 00 . , 50 0 • , 6 3 q # , 8 Q 0 • • 


*2i|*v.EBUR5floJ°Uttf *°°*’ ’^ 0, "» i ®0®*»“00.»6500‘. ♦«000. ♦10000. ,1250^ *»5obO 


iPRT.S XX.OATAiA 
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is 

3 


sr 


i- 


MP£ IlTBlN30a*-XXCl > .DAtAIA . _ 

1 ML'L TIP LE CAVITY CHECK CA S E 

2 MARK Pfe.TTITT 

3 i A •OPTION SELECTION 


3 CAVITIES 


4 

5 

6 

7 

a 

9 

13 

11 

12 

13 

14 
.15 
16 

17 

18 

1 <3 

23 

2 1 
2 2 
23 
2 4 

25 

26 
2 7 
2 8 

29 

30 

31 

32 

33 

34 

35 

36 

37 “ 
33 
39 
4 C: 

41 

42 

43 

44 
4 5 
46 
4 7 

4 8 
Vo 

50 

51 
5? 

5 7 
54 

":s ’ 

5 6 


J * 
1 


» 2 , 0,1 

rO,ao 

0,0 


e.MEj DATA FILf: SIZING ?A 1A me I£RS 

3. 5. 4. 20.5 , 3, 4 ,S ,5 0 ,20 ,0 , C ,5 0 , 4 

1 C . ° A N 3 E : FREQUENCY DOMAIN 

1 , 1 6 j 1 6 , 0.1 2 

c 0 #R A NOE : OESCRETE FREQUENCIES 

1 E .TOLERANCES 

0 * 201 , 0.01 

1 F * M A TS IX S IZ IN G 

14.4.2.20.3.15.5 ,3 »4 ,5Q#2Qf[jtQf0tut4 

1 G. MULTIPLE CAVITY PARAMETERS 

5C , 2 > l C , 1 0, 49,0.02, 10 , 0 .GJ 

1 H .OP ENXJiG /VOLUME' PEL AT lONSHIPS 

1 * 1 • 2 
2,2 ,3 

1 I. OPENING DESCRIPTION __ 

1,1 ,20.39 f 3 ,12 ,1 j 
2,1,11.09,7,13,14 
1 


jV S Ip L C T U H A L DA T A PILE ACCESS AND STORAGE 


^ , 0 
1 j Z 
1 . 

1 , u 

2 . 4 
3,j 
4,2 

5 .5 
6,9 

7.5 

3 . 5 
* 9,9 

Aq* 

11 , 

12 , 

13 , 

1 , 

2 7 

3, 

4 r 

1 

T, ~ 

2 , 

a 


K. GLOBAL NODE POINTS 

t • C • , J k 

• 14 5,0 **□_• t ___ 

.,2.2,0- 

• fC.,5.04 ^ __ 

.145,0 . ,0. 

.29,0. S C. ! _ . 

.1:4 5,2.2,0. 

• 14 5fC.f5.04 ___ 

29.2.2 .C. “ 

Or I 4.41 , 0 . _ __ 

Q, ,2.2 ,5.04 

4.1 4 5 ,2.2,?. ___ 

5 • 1 4 5,2.2 * 5 Yu 4 
5.145,4.41 ,2. 

L * SUpF A C E DESCRIPTION 

1.22.23.1 .2.3 
1 , 46. 82 ,4 ,5,3 

1.2 3.41 ,4 ,5,6 _ __ _ __ _ _ 

1.23.41.6.7.3 

M . M A s T ER_ SO R PA C£ / SURF AC E RELATIONS 
0,0 
3,4 

N .STRUCTURAL CONSTANTS 
2 0 .STRLCTRUAL MQGAL DATA 

0 “ P. structural constants" : SEA‘ 

1 : Q. VOLUME DESCRIPTI ON 

fa, 4 5. 96^1, 2, 3, V 

2,1,57.05 ,3,7 ,10,11 


m > 
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57 _ 3,1,91.92,5,6,14,6 * 

58 i P.ACOUsflC CONSTANTS 

59 w , 4.428£-5, 132D0.0 ,3.QE-06 _ _ _ 7?. 

60 0 S. ACOUSTIC MODAL DATA 

6 1 1 T. SURFACE /VOlUmE RELATIONSHIPS,. _ 
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If#* ..*, *r 



'. **£ 


i 


M PE VI T3 
1 
2 

3 

4 

5 

6 

7 

8 
9 

10 
i 1 
12 
1 3 

14 

15 

16 
IT 
13 
1? 
20 
21 


I N 3 0 S v X X 1 1 ) # Q A T A 2 

MARK POTT ITT 

MOD AL ANALYSIS TOST C A SO 
1 A • 

1 

1.2,1, 1 
1*3,1 1 

i • i 7 3 , o 

l i. 


2 4 
> c. 


26 
27 
2£ 
2 9 

30 
‘ 3 1 


3 4 
35 
3 6 
~3 7 

3 S 

39 

40 

4 1 
4 2 

4 3 

44 

45 
4 6 
4 7 
48 


2?4 v 4 f 20, 2 , 6 , S , 6 , 40 ? 25 , 0 , o , \ 5 , 0 

1 C. , 

li lS t i;5; t 0.12 

1 L » 
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